package TextStrip; use base 'HTML::Parser'; sub text { $strip_text .= $_[1] } my $parser = new TextStrip; $parser->parse_file(\*DATA) && print $strip_text; __DATA__ Index

Hello World

Just Another

Parser Hack