HTML::TableExtract

#!/usr/bin/perl
use strict;
use warnings;
use HTML::TableExtract;
use LWP::Simple;
my $html = get("http://...");
my $table = HTML::TableExtract->new;
$table->parse($html);
# Table parsed, extract the data.