Select Code to Download

my $p = HTML::Parser->new( api_version => 3,
                         start_h => [\&start, "tagname, attr"],
...

# Parse directly from file
$p->parse_file($inputFile);

sub text {
        my($origtext, $is_cdata) = @_;
...
        $origtext =~ s/½/\½/g;
        print $origtext;
}