@chunks = split /\), ([A-Z][A-Z])\(/, $input;