hi all, here's a couple of japhs:
The first requires vt100:

$_="just another perl hacker!";$|=print"\ec";print@b=sort{rand cmp ran
+d}
@a=split//;sub p{print"\e[$_[1];$_[0]H".($_[2]||$e)}while($e=$a[$g++])
+{
$f=0;{redo if$b[$f++]ne$e}$b[$f-1]=0;p($f,1,$");$i=$f-$g<0?1:-1;while(
+$f
!=$g){select$q,$q,$q,p($f,2)/20;p(($f+=$i)-$i,2,$")}p($f,3,$e.$/)}
[download]

As does the second:

eval($u=q%$_="357485838432657879847269823280698276327265677569823396";
print"\eceval(\$u=q\x25";s|..|$j=$u;$k=lc chr$&;$j=~s#($k)#\e[7m$k\e[m
+#g
;print"\e[0;11H$j\x25)\e[5;".(++$o)."H$1$/";select$q,$q,$q,0.2|eg;#!%)
+;
[download]

And finally an amazingly simple one with genle ofuscation
(probably done before many times - many apologies if it has), but still kinda neat (IMHO)

eval pack"H*",join"",qw"757365205469653a3a48616e646c653b73756220544945
+48
414e444c457b626c6573735c24697d737562205052494e547b73656c65637424712c24
+71
2c24712c28247c3d7072696e74292f39666f722073706c69742f2f2c224a7573742041
+6e
6f74686572205065726c204861636b6572227d7469652a4a4150482c2471";print JA
+PH
[download]

al