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