sub p{($c,$r)=@_;$r=$r||$c;eval"*p$c=sub{print'$r'}";}p chr foreach(97..122);p"J";p"P";p"S"," ";p"C",",";
pC(pr(pe(pk(pc(pa(ph(pS(pl(pr(pe(pP(pS(pr(pe(ph(pt(po(pn(pa(pS(pt(ps(pu(pJ()))))))))))))))))))))))))

Just another Perl hacker,