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