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