$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("'.join
     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;

##</code><code>##

 $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,"'

##</code><code>##

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

##</code><code>##

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