#! /usr/bin/perl
while (<>){
s/[<0-9a-zA-Z\-\._]+@[0-9a-zA-Z.,\->\._]+//g;
print $_;
}