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