#!/usr/bin/perl -w
# Created by Ben Okopnik on Thu Feb 27 22:00:12 PST 2003
use strict;

die "Usage: ", $0 =~ /([^\/]+)$/, " <file_to_mung.html>\n"
	unless $ARGV[0] && -r $ARGV[0];

package HTML::Parser::Mung;
use HTML::Parser;
@UNIVERSAL::ISA = 'HTML::Parser';

sub start { print $_[4] }
sub end   { print $_[2] }
sub text  {
    $_[1] =~ s#(&(\w+);?)#${{qw/lt < gt > amp & quot "/}}{$2}||$1#ge;
	$_[1] =~ s/(\S)/sprintf "&#%s;", ord $1/eg;
	print $_[1]
}

my $p = HTML::Parser::Mung->new();
$p->parse_file($ARGV[0]);