I am working with the HTML Parser module example which extracts plain text from html. After parsing the html I want to know what is the best way to strip out the special characters and extra line spacing, then save the plain text to a file. Thanks for your help.

#!/usr/bin/perl -w

# Extract all plain text from an HTML file

use strict;
use HTML::Parser 3.00 ();

my %inside;

sub tag
{
   my($tag, $num) = @_;
   $inside{$tag} += $num;
   print " ";  # not for all tags
}

sub text
{
    return if $inside{script} || $inside{style};
    print $_[0];
}

HTML::Parser->new(api_version => 3,
          handlers    => [start => [\&tag, "tagname, '+1'"],
                  end   => [\&tag, "tagname, '-1'"],
                  text  => [\&text, "dtext"],
                 ],
          marked_sections => 1,
    )->parse_file(shift) || die "Can't open file: $!\n";;
[download]