#!/usr/bin/perl

use warnings;
use strict;
use Win32::OLE;
 
### File containing tables    
my $file = "C:\\DocParse\\test.doc";

### Open for reading
my $word = Win32::OLE->new('Word.Application', 'Quit') or die;
my $readdoc = $word->Documents->Open({FileName=>$file});
my $output = $readdoc->Tables()->Count();
print "There are $output tables.\n";

### read text from the document and print to the console
my $tables  = $readdoc->Tables;
foreach my $table (in $tables) {
  print  $table->Range->{Text};