};
my $p = HTML::TokeParser::Simple->new(\$html);
# parse until second table
my $table_count = 2;
while (my $t = $p->get_tag('table')){
last unless --$table_count;
}
my (%href, $this_href, $number);
while (my $t = $p->get_token){
if ($t->is_start_tag('a')){
$this_href = $t->get_attr('href');
next;
}
if ($t->is_start_tag('span')){
$number = $p->get_trimmed_text('/span');
$href{$this_href} = $number;
next;
}
last if $t->is_end_tag('table');
}
for my $key (keys %href){
print "$key -> $href{$key}\n";
}