#! perl -slw
use strict;
use LWP::Simple;
use HTML::TableExtract;

my $te = new HTML::TableExtract;
$te->parse( get( 'http://www.sailwx.info/shiptrack/cruiseships.phtml' ) );

for my $table ( $te->tables ) {
    print "\n-----------\n";
    for my $row ( $table->rows ) {
        local $^W;
        print join '|', @$row;
    }
}

##</code><code>##

...
-----------

Ship|last reported (UTC)|position|Callsign
BATFR20|2008-Mar-20 2100|N 43&#9617;00', E 005&#9617;36'|BATFR20
BATFR21|2008-Mar-20 2100|N 41&#9617;36', E 008&#9617;24'|BATFR21
BATFR22|2008-Mar-20 2100|N 42&#9617;54', E 005&#9617;54'|BATFR22
...
Carribean Princess|2008-Mar-19 0600|N 19&#9617;18', W 065&#9617;18'|ZCDG8
Prinsendam|2008-Mar-19 0300|N 27&#9617;24', W 040&#9617;24'|PBGH
Ships in port or not reporting today:|||
TUSTUMENA|2008-Mar-18 1700|N 60&#9617;48', W 147&#9617;12'|WNGW
Oosterdam|2008-Mar-18 0800|N 23&#9617;00', W 107&#9617;48'|PBKH
...

##</code><code>##

...
for my $row ( $table->rows ) {
    if( $row->[ 0 ] ne 'Ships in port or not reporting today:' ) {
    ...