Select Code to Download

eval join"",map{chomp;s/^[^>]+>\s*//;$_}grep{/>/}<DATA>; __DATA__
      .'  .'     Kelly "STrRedWolf" Price                WolfSkunk Des
+igns
...
'"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);

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