For what its worth, one way of doing this is to keep a count of how many brackets are open and process the string character by character, splitting the string when a comma is encountered iff the bracket open count is zero.

However it strikes me that this is not a particularly perl-ish way to solve the problem although if you are interested I have written such code as part of a Java compiler I wrote I while back

Abh