Help for this page
echo $HOME/Mail/* | perl -e 'while (<STDIN>) { s/sent-mail//; print "$ +_"}'
echo $HOME/Mail/* | perl -p -e '/sent-mail//'