$tes = new HTML::TableExtract(headers => [qw(Summer)]);
$tes->parse($mech->content());

##</code><code>##

foreach $ts ($tes->table_states) {
   foreach $row ($ts->rows) 
   {
                print $row->[1],"999\n";
   }
}

##</code><code>##

Table (2,10):
^M
                                                                        ^M
    $1,485.14^M
             ^M

Table (2,13):
^M

             ^M
   $1,623.57^M
             ^M