use strict;
use warnings;
use HTML::TableExtract;
my $content;
{
local $/ = undef; # slurp mode
$content = ;
}
my $te = HTML::TableExtract->new();
$te->parse( $content );
foreach my $ts ( $te->tables() )
{
foreach my $row ( $ts->rows() )
{
print join ( "\t", @$row ), "\n";
}
}
__DATA__
Person Profile
Profile
Short Name: |
John |
Long Name: |
John Abraham |
Company: |
Idea |
Currency: |
EUR |