in reply to How do I split on ',' followed by a capital letter?
my @array = split /,\s(?=[A-Z])/, $string; [download]
Originally posted as a Categorized Answer.