$|++;;$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]