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