use HTML::TreeBuilder;
my $tree = HTML::TreeBuilder->new_from_file('test.html');
my @divs = $tree->look_down(_tag => 'div');

print $divs[0]->as_text();