#!/usr/bin/perl
my $in = "srd^1|name|mail@mail.com^dsff";
@$out1 = split(/\^/, $in);
@$out2 = split(/\|/, $out[1]);

print $out2[0]." ".$out2[1]." ".$out2[2];