$sql = 'a=f(g(1,2),h(3,4,5),6), b=h(1)'; 1 while $sql =~ s/ \( [^(]*? \) //x; print $sql, "\n";