@chunks = split /(?: (?:^|\),\s) ([A-Z][A-Z])\( | \)$)/x, $input;
shift @chunks;  # remove extra blank element at front