perl -e "use strict;$|=1;@_=split//=>(shift||'Just Another Perl Hacker').' ';for(;!0;){push@_=>shift@_;print@_;select(''=>qq||=>q//=>0.1);print qq/\b/x@_}"