I enjoy putting together JAPH one liners because the biggest challenge seems to be that you know the result and you have to invent the problem and solution... fun times.

In any case, merlyn should like this one ;-)

$_=`perldoc -qjaph`=>s`.+"(.+)".+`$1\n`s=>s`\b([^a])`\u$1`g=>print;

I may post more later... enjoy!

--
Casey