test message #!/usr/bin/perl -w # Strip all line of this form from html messages # From: "French, Alastair" <Alastair.French [at] racalinst.co.uk> while (<>){ $_=~s/(^.*:.*[ <])(\w.*)(@.*)/$1nospam$3/; print unless /^Delivered-To:/i ; }