#!/usr/bin/perl -w
# Extract all plain text from an HTML file
use strict;
use HTML::Parser 3.00 ();
my $html = qq~dies ist ein test.
Test~;
sub text
{
print shift;
}
HTML::Parser->new(api_version => 3, handlers => [ text => [\&text, "dtext"], ])->parse($html);