use HTML::TableExtract;

my $te = HTML::TableExtract->new(
    attribs => { id => 'historicalTable' },
);

$te->parse_file(\*DATA);

$te->first_table_found->dump(1);
[download]

Cheers,
Matt

edit: some non-pm context is here. recent post history is here.