http://www.perlmonks.org?node_id=118435


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