In any case, merlyn should like this one ;-)
$_=`perldoc -qjaph`=>s`.+"(.+)".+`$1\n`s=>s`\b([^a])`\u$1`g=>print;
-- Casey
In reply to my obfuscation fun by cwest