eval join"",map{chomp;s/^[^>]+>\s*//;$_}grep{/>/}<DATA>; __DATA__
      .'  .'     Kelly "STrRedWolf" Price                WolfSkunk Designs
    xX  xX  .'   http://stalag99.keenspace.com   tygris(@)cablespeed(.)com
   "X  "X  X  .' NO UNSOLICITED COMMERCIAL E-MAIL ACCEPTED WITHOUT PAYMENT
 _____.   X" X   FREE SPEECH-FREE DIMITRY:     http://www.dibona.com/dmca/
XXXXXXXx.   X".' # dnsblcheck "dnsbl" "responce" < mail, ret 1 on failure
'"XXXXXX|    X   > while(<STDIN>){chomp;if(/^Received:[^\[]+\[(\d+)\.(\d+)
    "XXX|   X"   > \.(\d+)\.(\d+)\]/){$n=`host $4.$3.$2.$1.$ARGV[0] 2>&1`;
     'XX'        > exit(0) if($n=~/$ARGV[1]/m);}} exit(1);

##</code><code>##

eval join "",
   map {
      chomp;
      s/^[^>]+>\s*//;
      $_}
         grep{/>/} <DATA>;