use HTML::TableExtract;

my $file = 'temp.html';

 @headers = qw( Address Register 15 14 13 12 11 10 9 8 7 6 5);
print " \n h:@headers:\n";
 $te = new HTML::TableExtract( keep_html=>1,headers => \@headers);
 $te->parse_file($file);
  @tcount1 = $te->counts(0);
  print " tcount1 : @tcount1:\n";