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