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