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