#!/usr/bin/perl -w
use strict;
use HTML::Parser;
my $text;
my $p = HTML::Parser->new(text_h => [ sub {$text .= shift},
'dtext']);
$p->parse_file('test.html');
print $text;
####
Test
Test Stuff
This is a test
this
is a
list
####
Test
Test Stuff
This is a test
this
is a
list