s/\B([A-Z])(?=[a-z])/-\l$1/g; # ?

##</code><code>##

s/([A-Z])/-\l$1/g;