c:\@Work\Perl\monks>perl -wMstrict -le
"my $desc = 'leave (only text) this () too -- does not (v(w(x)y)z) work';
 $desc =~ s/\(.*?\)//gs;
 print qq{'$desc'};
"
'leave  this  too -- does not y)z) work'