$|++;;$x=q!just another perl hacker!;@!=map{($_)x2=>qq}\U$_}}$"=>a..z; +{substr( $y,$_,1)=lc(substr($y,$_,1))eq substr($x,$_,1)?substr($y,$_,1):$![rand +@!],for( 0..0+split(//,$x));print"\r$y";select(undef,undef,undef,0.1);lc${y}eq$ +x||redo} [download]
www.com | www.net | www.org
No recent polls found