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

##</code><code>##

85      mat@com

##</code><code>##

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

##</code><code>##

8       5

##</code><code>##

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