672099.pl <mymail.txt >mymail.txt.new && mv mymail.txt.new mymail.txt

##</code><code>##

perl -i 672099.pl mymail.txt