Select Code to Download

perl -e '$sep=chr(254);$s="85$sep"."mat\@com";($key,$email)=split($sep
+,$s);print"$key\t$email\n";'

85      mat@com

perl -e '$s="85|mat\@com";$sep="\|"; ($key,$email)=split($sep,$s); pri
+nt "$key\t$email\n";'

8       5

perl -e '$s="85|mat\@com";($key,$email)=split(/\|/,$s);print "$key\t$e
+mail\n";'