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

##</code><code>##

$string =~ s/(\s+)/ /gm;