var %x = 1
while (%x <= $numtok(%answer,32)) {
if ($left($gettok(%answer,%x,32),1) == $chr(40)) {
if ($right($gettok(%answer,%x,32),1) == $chr(41)) {
set %answer $remtok(%answer,$gettok(%answer,%x,32),1,32)
}
}
inc %x
}
I think i understand what you want it to do but correct me if i'm wrong it will remove any word that starts with ( and ends with ) P.S i didn't test it
it will remove any word that starts with ( and ends with ) 
