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