my @array = split /,\s(?=[A-Z])/, $string;