while(<STDIN>) {
  chomp;
  if (/^Received:[^\[]+\[(\d+)\.(\d+)\.(\d+)\.(\d+)\]/) {
    $n=`host $4.$3.$2.$1.$ARGV[0] 2>&1`;
    exit(0) if ($n=~/$ARGV[1]/m);
  }
}
exit(1);

##</code><code>##

while(<STDIN>){$_="host ".join'.',map{s/(\d+)/$1/}split
/./."$ARGV[0] 2>&1";`$_`=~/$ARGV[1]/m&&exit 0}exit 1

##</code><code>##

while (<STDIN>) {
  $_= "host " .
      join '.', map {s/(\d+)/$1/} split /./ .
      "$ARGV[0] 2>&1";
  `$_` =~ /$ARGV[1]/m && exit 0
}
exit 1