Как удалить слова в скобках, кроме случаев, когда первое слово в скобках - это «тест» в Perl?

Question

Как удалить все слова, содержащиеся в скобках (включая скобки), кроме случаев, когда первое слово в скобках «test» с использованием Perl?

Например:

don't delete = (test 1)
               (test 2)

delete word(s) plus parenthesis = (scsi)
delete word(s) plus parenthesis = (normal)

Вот что я попробовал до сих пор:

   $_ =~ s/\([a-oA-Oq-zQ-z].*\)//g;

Answer 1

Попробуй .....

s/\((?!test).*?\)//g;