Select Code to Download

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

a=f, b=h