Split on comma, but only when not in parenthesis

Question

I am trying to do a split on a string with comma delimiter

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

If I do

Answer 1

Limit the number of elements it can be split into:

split(',', $string, 4)