$|++;
$.="Just another Perl hacker ";
while(!select $',$&,$`,1/200)
{
(*_,*") = \(substr($.,0,1), substr$.,1,$,++%24);
print+qq'\r$"';
$. .= chop
}
####
$|++;
##
##
while(!select $',$&,$`,1/200)
##
##
while(!select undef,undef,undef,1/200)
##
##
print+qq'\r$"'
##
##
$. .= chop
##
##
while(1)
{
for(0..26)
{
# go back to start of line
print "\r";
# print substring of current $.
# using our iterating $_
print substr($.,1,$_);
# rotate $. putting first character last
$. .= substr($.,0,1,'');
# Pause for 0.005 seconds
select undef,undef,undef,1/200
}
}