This is a little harder to understand... ;-)

$|++;$.="Just another Perl hacker ";while(!select
$',$&,$`,1/200){(*_,*")=\(substr($.,0,1),substr$.
,1,$,++%27);print+qq'\r$"';$..=chop}#Try 24,25,26
[download]