local $_ = "this, that, those, these (not enough, nope, never), there";

while ( /(?:^|, )([^,]+\(.*?\)|[^,]+)/g ) {
    print $1, "\n";
}