$s =~ s/.(?=[A-Z])/ /g; [download]
$s =~ s/(.)(?=[A-Z])/$1 /g; [download]
In reply to Re: Splitting on non-initial uppercase without split by si_lence in thread Splitting on non-initial uppercase without split by loris