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