This seems to DWYM:
my @w = split(/(?=[A-Z])/,$s); [download]
In reply to Re: Split: Having your capitals and not eating them by edan in thread Split: Having your capitals and not eating them by loris