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