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'
[download]

A full "Just another perl hacker" output is probably not possible with this method, at least without some extreme cleverness..