Select Code to Download

($scoretable) = $source =~ m#<span id=linescore>(.*?</table>)#s;

my $te = HTML::TableExtract->new;

...
                print join(',', @$row),"\n";
        }
}

Table (0,0):
 ,1,2,3,4,OT,T
Seattle ,0,0,7,7, ,14
Oakland ,7,17,14,0, ,38

my $parsed_table = ($te->table_states)[0];
my ($team1_scores, $team2_scores) = ($parsed_table->rows)[1,2];

#!/usr/bin/perl -w

...
print Dumper($team1_scores,$team2_scores);

__END__