Person Profile

Profile

Short Name:	John
Long Name:	John Abraham
Company:	Idea
Currency:	EUR

##

use strict;
use warnings;
use HTML::TreeBuilder;

#Parse html content using html-treebuilder:
my $root = HTML::TreeBuilder->new();
$root->parse($html);
$root->eof();

my @tables = $root->look_down(_tag => 'table');
while (@tables) {
    my $node = shift @tables;
    if (ref $node) {
        unshift @tables, $node->content_list;
    }
    else {
        print $node,"\n";
    }
}
$root = $root->delete;

##

##

---------- Perl ----------
Short Name:
John
Long Name:
John Abraham
Company:
Idea
Currency:
EUR

Output completed (0 sec consumed) - Normal Termination