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