obfuscated
ar0n
Here's my first attempt, please don't laugh.
<code>
@f=split(//,shift||"Just Another Perl Hacker"); sub p{print
@_};while(){for($i=0;$i<@f;$i++){$j=6000;while(#$j-- if($slow)
--$j){p("."=>chr(8));}p$f[$i];}p"\n";push@f,shift@f;}
</code>
<br>
<b>update:</b> err, copy error, sorry... it works now<br>
<br>
-- ar0n