[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

test

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 ;
}