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

say uc $str;