in reply to Re: RegEx Problem
in thread RegEx Problem

s/([A-Z])/-lc($1)/eg

Near as I can tell.

-i think it loses on an edge condition.

In Section Seekers of Perl Wisdom