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