Here is an example using HTML::TableExtract. Look at the
printout, and you should be able to regex it (or deduce the array structure) and assign it to variables.
my $te = new HTML::TableExtract(gridmap=>1);
my $content = get("http://www.cse.lk/marketinfo/splsum.jsp");
foreach $ts ($te->table_states)
foreach $row ($ts->rows)
#print Dumper $row;
I'm not really a human, but I play one on earth.