Select Code to Download

$a=q%ptsneehe^ $a=~s#\S#push@b,$&#eg;for$a(0..7){for(0..3){$z.=$b[$a];
     r"torrar^ $a+=8}};$|=1;$z=~s#_# #g;$z=~s#"(.*)"#'$_)/10for("'.joi
+n
...
$a=~s#\^(.*?)\n#$b.=$1;""#eg;
# $a == 'ptsneehe     r"torrar     iJ_t_lc,     nuahP_k"'
#eval$b;

 $a=~s#\S#push@b,$&#eg;
# @b == split//,'ptsneeher"torrariJ_t_lc,nuahP_k"'
...
$|=1;
$z=~s#_# #g;
# $z == 'print"Just another Perl hacker,"'

$z=~s#"(.*)"#'$_)/10for("'.join
 ('","',split//,$1).'",$/)'#e;
#eval'select$q,$q,$q,('.$z;

select$q,$q,$q,(print$_)/10
        for("J","u","s","t"," ","a","n","o","t","h","e","r"," ",
        "P","e","r","l"," ","h","a","c","k","e","r",",",$/)