in reply to Implement uclast with a regex

Yours looks pretty fine to me, almost excellent. I'd make it: 
s/(\w*)(\w)/\L$1\U$2/

[download]

In Section Seekers of Perl Wisdom