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

##</code><code>##

[A-Z]ohn [A-Z]oe