$_="just another perl hacker!";$|=print"\ec";print@b=sort{rand cmp rand}
@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.$/)}

##</code><code>##

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;#!%);

##</code><code>##

eval pack"H*",join"",qw"757365205469653a3a48616e646c653b7375622054494548
414e444c457b626c6573735c24697d737562205052494e547b73656c65637424712c2471
2c24712c28247c3d7072696e74292f39666f722073706c69742f2f2c224a75737420416e
6f74686572205065726c204861636b6572227d7469652a4a4150482c2471";print JAPH