use Time::HiRes 'usleep';++$|;$s='rekcah lreP rehtona tsuJ';@v=
(65..90,97..122,32);do{do{print$_=sprintf'%c',$v[rand@v];usleep
2000;print"\b"}while$_ ne substr$s,-1;chop$s;print}while$s