in reply to Re: Splitting on non-initial uppercase without splitin thread Splitting on non-initial uppercase without split
What about this:
$s =~ s/\B(?=[[:upper:]])/ /g; [download]
$s =~ s/\B([[:upper:]])/ $1/g; [download]