#!/usr/bin/perl

use strict;
use warnings;
use HTML::TableExtract;

my $html;
{
  local $/;
  my $file = 'bio_output.html';
  open my $fh, '<', $file
    or die "can't open $file: $!";
  $html = <$fh>;
  close $fh;
}

my $t = HTML::TableExtract->new();

$t->parse($html);

my $report = $t->tables_report(1);

print $report;