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