#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

use HTML::TableExtract;

my $te = 'HTML::TableExtract'->new;
$te->parse(do { local $/; <> =~ s/\\"/"/gr });
for my $table ($te->tables) {
    for my $row ($table->rows) {
        chomp @$row;
        say "@$row[0, 1]";
    }
}