http://www.perlmonks.org?node_id=169947


in reply to RegEx Problem

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

[download]
Near as I can tell.

In Section Seekers of Perl Wisdom