FYI, the code from the wikipedia article is my JAPH, originally posted at Fun With Reserved Keywords
(And no, I didn't add it to the wikipedia article). There is also a link in that node to code that generates JAPHs of this form.
I recently had an idea for another approach to the keywords-only JAPH (incidentally which was also inspired by Ode for getprotobyname), which is more time-consuming to make. Right now I only have a sig-version of it (it's been at the bottom of my homenode for a while)..
perl -le 'chop gt print if s qq socket y qx cmp s q qq
or uc tr qw s my not vec eq abs do le chop q'
A full "Just another perl hacker" output is probably not possible with this method, at least without some extreme cleverness..