HTML::Parser->new(text_h => [sub{print @_}, "text"])->parse_file($file);