$|++;print"\e[2J\e[H\n\n";{my($o,$t);for(split//,
'Just another perl hacker'){if(int rand 2){$o.=$_;
$t.=' '}else{$o.=' ';$t.=$_;}}print"\e7$o\n$t";
select undef,undef,undef,0.15;print"\e8";redo}