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