@m='just another perl hacker'=~/./g;@a=0..$#m;$|=1;map
{select($u,$u,$u,.02);//?print$r,$o[$_]||$",$r:(@o[@i[
0..2]]=@m[@i=grep!$o[$_],sort{rand()<=>rand}@a],$r=(chr
8)x!$r,@a=reverse@a)}@a,''while"@o"ne"@m";print@o,$/