Help for this page
[~] $ perl -e'($x,$y)=@ARGV;do{$z.=$x}while`whois $y$z.com`!~ /No m/;print"$y$z"' x|wc -c 64
[~] $ perl -le'($x,$y)=@ARGV;do{$z.=$x}while`whois $y$z.com`!~ /No m/;print"$y$z"' o m mooooooooo