!/usr/bin/perl -w
use strict;
use LWP::Simple;
use HTML::Parser ();
use HTML::TableExtract;

$data = get('http://www.flalottery.com/exptkt/c3.htm')

##</code><code>##

 $te = HTML::TableExtract->new( headers => [qw(Date Price Cost)] );
 $te->parse($html_string);

 # Examine all matching tables
 foreach $ts ($te->tables) {
   print "Table (", join(',', $ts->coords), "):\n";
   foreach $row ($ts->rows) {
      print join(',', @$row), "\n";
   }
 }