Разделить по запятой, но только если не в скобках

Я пытаюсь выполнить разделение строки с разделителем-запятой

my $string='ab,12,20100401,xyz(A,B)';
my @array=split(',',$string);

Если я сделаю разделение, как указано выше, массив будет иметь значения

ab
12
20100401
xyz(A,
B)

Мне нужны значения, как показано ниже.

ab
12
20100401
xyz(A,B) 

(должен не разбивать xyz (A, B) на 2 значения) Как мне это сделать?