my $tables = $word->ActiveDocument->{Tables}; 
    for my $table (in $tables) {
 
        my $text = $table->ConvertToText(wdSeparateByTabs)->Text;
.....

                                  }