echo $HOME/Mail/* | perl -e 'while (<STDIN>=~s/sent-mail//) { print "$_"}'