$|++;

$.="Just another Perl hacker ";

while(!select $',$&,$`,1/200)
{
  (*_,*") = \(substr($.,0,1), substr$.,1,$,++%24);
  print+qq'\r$"';
  $. .= chop
}

##</code><code>##

$|++;

##</code><code>##

while(!select $',$&,$`,1/200)

##</code><code>##

while(!select undef,undef,undef,1/200)

##</code><code>##

  print+qq'\r$"'

##</code><code>##

  $. .= chop

##</code><code>##

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
  }
}