my @parens = $string =~ /\(([^\)]+)/g;
print $_,"\n" for  @parens;