Here's a version using the HTML::Parser v.2 interface:

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

my $parser = Example->new();
my $html   = get("http://www.perlmonks.org")
    or die "Cannot fetch the HTML\n";

$parser->parse($html);

package Example;
use base qw(HTML::Parser);
sub text {
    my ($self,$text) = @_;
    print $text;
}
[download]

And here's the same script, but using the HTML::Parser version 3 interface. This one is easier to use because you generally don't have to make a new package to parse the html (though you can, if you really want to!).

#!/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);
[download]

Sweet!!! Thank You. I tried both examples and they work. I now feel so giddy. I also just learned how to turn on autocomplete in the NT cmd shell. This allows bash like autocomplete in both NT & W2k.

In HKEY_CURRENT_USER|Software|Microsoft|CommandProcessor change CompletionChar to 9

    1   #!/usr/bin/perl -w
    2   package Example;
    3   use strict;
    4   
    5   require HTML::Parser;
    6   
    7   @Example::ISA = qw(HTML::Parser);
    8   my $parser = Example->new;
    9   $parser->parse_file('index.html');
   10   
   11   print $parser->{TEXT};
   12   
   13   sub text
   14    {
   15      my ($self,$text) = @_;
   16      $self->{TEXT} .= $text;
   17    }
[download]