如何删除括号内的单词，除非括号中的第一个单词在Perl中是'test'？

Question

如何删除括号中包含的所有单词（包括括号），除非括号内的第一个单词是使用Perl进行'test'吗？

例如：

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;