$string =~ s/(_\W*)(\w)/$1\U$2/g;