$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
     iJ_t_lc,^ ('","',split//,$1).'",$/)'#e;eval'select$q,$q,$q,('.$z;
     nuahP_k"^ %;
$a=~s#\^(.*?)\n#$b.=$1;""#eg;
# $a == 'ptsneehe     r"torrar     iJ_t_lc,     nuahP_k"'
#eval$b;
[download]

Interesting way to combine the data and the code. Moving on into the first eval...

 $a=~s#\S#push@b,$&#eg;
# @b == split//,'ptsneeher"torrariJ_t_lc,nuahP_k"'
for$a(0..7){
        for(0..3){
                $z.=$b[$a];
                $a+=8
        }
};
# $z == 'print"Just_another_Perl_hacker,"'
$|=1;
$z=~s#_# #g;
# $z == 'print"Just another Perl hacker,"'
[download]

Now we just eval $z, right? Nope, guess again!

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

Moving on into the second eval...

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",",",$/)
[download]

Which does (almost) the same thing at 10 characters/second. A minor nitpick: the $/ is not canonical.