in reply to Subclassing strategies

Of course just using the Parser class directly you could: 

package TextStrip;
use base 'HTML::Parser';
sub text { $strip_text .= $_[1] }

my $parser = new TextStrip;
$parser->parse_file(\*DATA) && print $strip_text;

__DATA__
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-12
+52">
<title>Index</title>
</head>
<body>
<h1>Hello World</h1>
<p>Just Another
<p>Parser Hack
</body>
</html>

[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

In Section Seekers of Perl Wisdom