we'll don't do your homework but we can give you tracks to get by.
my track : use TableExtract

use HTML::TableExtract;
my @content = (<>); # give html file on command line
my $content = join( //, @content );
for $count ( 1 .. 8 ) {
     $te = new HTML::TableExtract( depth => 1, count => $count );
     $te->parse($content);

     # Shorthand...top level rows() method assumes the first table fou
+nd
     # in the document if no arguments are supplied.
     foreach $row ( $te->rows ) {
                print join( ',', @$row );
     }
}
[download]