$c = "a_c_code";
$c =~ s/(?<![^_])(.)/ucfirst($1)/ge;
print $c;