如何刪除括號內的單詞，除非括號中的第一個單詞是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;