Here's a (sort of) JAPH code that just came up to me:

> perl -MO=Deparse -e 'Another Just Hacker Perl'
'Just'->Another('Perl'->Hacker);
-e syntax OK

It's funny that 4 words are de-parsed into some autobox-ish form.