Filter Addresses
From CMPLWiki
eval join"",map{chomp;s/^.+?>\s*//;$_}grep{/>/}<DATA>; __DATA__
.' .' Kelly "STrRedWolf" Price -- WolfSkunk Designs
xX xX .' http://stalag99.net tygris @ same domain
"X "X X .' HEY SPAMMERS! USE THIS SIG IN PERL!
_____. X" X Remove MD/WA/VA held domains from email lists.
XXXXXXXx. X".' > $e="MD|Maryland|WA|Washington|VA|Virgina";
'"XXXXXX| X > while(<>){chomp;
"XXX| X" > /\@.+\.(.+?\..{2,3})$/; $z=`whois $1`;
'XX' > print "$_\n" unless($z=~/, ($e) \d/s);}
