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