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

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;