Yep. Or per the OP's substitution, which I prefer:

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

Makeshifts last the longest.