[~] $ perl -le'($x,$y)=@ARGV;do{$z.=$x}while`whois $y$z.com`!~
               /No m/;print"$y$z"' o m
mooooooooo