I removed most of the cruft from my first JAPH so it's much cleaner to follow:

$,=pack H84,D73.D0086e.BF4A25
.C80.C25.Ca.C028863.Ae5c8;sub
s{@_?print:f &s((\w)(\w+)(\W)
\3*)($1\L$2 )gx}& ##;
s if@_=##;
s()##  & ##;
s() ## & & ##;
{pack u,$,}e&#
s()##  & & ##;
s() ## & ##;
[download]

You can't shoot yourself in the foot with this one even though the code still looks like a gun. (For security reasons, I won't show the original "James Bond" JAPH since it's too scary.)