Currently I'm using a simple document for testing, so my code is minimal. I know the table I'm looking for is the 2nd table, in the real version, I'll just have to check the first cell to make sure it has the correct word.

my $word  = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{Visible} = 1;

my $document = $word->Documents->Open('C:/temp/doctest.doc');

my $table = $word->ActiveDocument->Tables(2);
$table->Range->Copy;

... pasted into excel...
[download]

Please assume a high degree of Perl and Win32 OLE noobness :)