$s =~ s/([a-z])([A-Z])/$1 $2/g;

##</code><code>##

$s =~ s/([^A-Z])([A-Z])/$1 $2/g;