my $te = HTML::TableExtract->new( headers => [qw($service $arrival $tr
+ansit)] );
$te->parse($html_string);
my $ts = $te->first_table_state_found;
foreach my $row ($ts->rows) {
  foreach my $cell (@$row) {
    print $cell;
  }
}
[download]

If it's actually capturing tables, that should work. (you can monitor, in detail, whether tables are being captured by setting the 'debug' parameter to varying levels (1..7) in the new() constructor).

Let me know what happens,
Matt