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