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