in reply to regexp on utf8 string

 s/\b(\p{Ll}\p{L}*)\b/\u\L$1/g;

[download]
Boris

In Section Seekers of Perl Wisdom