look at "look around assertions"

$str =~ s/(?<=[a-z])(?=[A-Z])/_/g;

say uc $str;
[download]