В perl, если вы прочитаете строку в $ line
$line =~ s/([^(]+)\((.*)\)/$1$2/
сделает эту работу.Это также избавит вас от необходимости вставлять вставку ADD PRIMARY KEY ... (с правильным количеством пробелов. Регулярное выражение здесь делает
a) Соответствие всему до первого (и захватывание его в $ 1
b) Соответствие (
c) Соответствие всем персонажам до, но не включая финал) и захватывание его в $ 2.
d) Соответствие завершающему)
e) Заменить исходную строку на $ 1 $ 2.