$s =~ s/\B(?=[[:upper:]])/ /g; 

##</code><code>##

$s =~ s/\B([[:upper:]])/ $1/g;