in reply to Upper case first letter of each _ delimited word

$str =~ s/([^_]+)/\u\L$1/gi

In Section Cool Uses for Perl