in reply to Splitting on non-initial uppercase without split

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

Replies are listed 'Best First'.
Re^2: Splitting on non-initial uppercase without split
by Aristotle (Chancellor) on Jan 26, 2005 at 14:29 UTC

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

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

    Makeshifts last the longest.