Re: global match except last one

[happy.barney]

look at "look around assertions"

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

say uc $str;