perl strip.pl < file.msg