Select Code to Download

$_="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.$/)}

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

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