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