use strict;
use LWP::Simple;
use HTML::Parser;
# get the content of the web page
my $content = get("http://www.google.com/");
# instaniate a new parser and let it crunch our data
my @lines;
my $parser = new MyParser;
$parser->parse($content);
{
package MyParser;
use base qw(HTML::Parser);
# this method supplies the text, no tags :)
sub text {
my ($self, $origtext) = @_;
print $origtext, "\n";
}
}