#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);
use HTML::Parser;

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

my $parser = HTML::Parser->new(
	text_h => [ sub { print shift }, 'dtext' ]
);
$parser->parse($html);