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