my $sql = do {local $/; <>};
$sql =~ s/\( ([^()]+) \) , \n\)/($1)\n)/x;
print $sql;