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