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