$s =~ s/.(?=[A-Z])/ /g;

##</code><code>##

$s =~ s/(.)(?=[A-Z])/$1 /g;