foreach (@parens)
      {
         if($_ = ~ /\(([^\)]+?)/g)
          {
               print $_;
               print "\n";
         }
     }