#!/usr/bin/perl use strict; use warnings; my $the_file =< Test

Test Title

This is a test

EOH use HTML::Parser; my $parser = HTML::Parser->new( text_h => [ sub { print shift; },"dtext" ]); $parser->parse($the_file); ##

##

#!/usr/bin/perl
 
use strict;
use warnings;
 
my $the_file =<
Test


Test Title
This is a test
EOH
 
use HTML::Parser;
my $parser = HTML::Parser->new( text_h => [ \&text_handler,"self,dtext" ],
                                start_document_h => [\&init, "self"] );
 
                                                                                
$parser->parse($the_file);
 
print @{$parser->{_private}->{text}};
 
sub init
{
   my ( $self ) = @_;
   $self->{_private}->{text} = [];
}
 
sub text_handler
{
    my ( $self, $text) = @_;
 
    push @{$self->{_private}->{text}}, $text;
}