in reply to global match except last one

s/([a-z]+)(?=(.?))/ uc($1) . (length($2) ? "_" : "") /ge;

[download]

Replies are listed 'Best First'.
Re^2: global match except last one
by utku (Acolyte) on Jul 12, 2011 at 15:57 UTC
    Thank you very much ikegami!! Respect. Long live the Perl monks, you deserve any kind compliment!
[reply]

In Section Seekers of Perl Wisdom