echo $HOME/Mail/* | perl -e 'while () { s/sent-mail//; print "$_"}' #### echo $HOME/Mail/* | perl -p -e '/sent-mail//'