use strict;
use warnings;
use HTML::TreeBuilder;
my $p=HTML::TreeBuilder->new;
my @content = ;
$p->parse_content(@content);
$p->look_down(
'_tag' =>'div',
'class' =>'subsection',
sub {
my $property;
my $value;
$_[0]->look_down('class', 'box_profile_info_small_heading',sub {$property = $_[0]->as_text});
$_[0]->look_down('class', 'box_profile_info_small_content',sub {$value = $_[0]->as_text});
warn "$property => $value"
if $property;
}
);
$p->delete;
__DATA__