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