$,=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() ## & ##;