use strict; use warnings; use LWP::Simple; use HTML::TableExtract; #my $page = get( 'http://www.garmin.com/support/download.jsp'); my $raw_html = do { open my $in, '<', 'garmin.htm' or die "Can't open infile: $!\n"; local $/ = undef; <$in>; }; my $te = new HTML::TableExtract( headers => ["Product Name", "Software Version", "Compatible with Versions", "Date" ] ); $te->parse($raw_html); # Examine all matching tables foreach my $ts ( $te->table_states ) { print "Table (", join(',', $ts->coords), "):\n"; foreach my $row ( $ts->rows ) { print join( ',', @$row ), "\n"; } }