#!/usr/bin/perl -w

use strict;
use warnings;

use HTML::TreeBuilder::XPath;
use LWP::Simple;

my $html = get("http://www.perl.org");

my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse($html);

my @contents = $tree->findvalues(q{//p[@class="intro"]});
# usw.

$tree->delete;

print join ("", @contents);