$s =~ s/\B(?=[[:upper:]])/ /g;