in reply to regexp on utf8 string

Perhaps you could work ucfirst into your solution?

In Section Seekers of Perl Wisdom