Select Code to Download

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

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

Table (2,10):
^M
...
             ^M
   $1,623.57^M
             ^M