in reply to Another Q about piping Perl

Here's my take on this...

perl -e "while(<>){s/sent-mail //;print;}"

Short and sweet :)

In Section Seekers of Perl Wisdom