perl -w 672099.pl <mymail.txt >mymail.txt