#!/usr/bin/perl -w
# Created by Ben Okopnik on Sat Jun 25 13:52:57 CDT 2005

$fh = shift or die "Usage: ", $0 =~ /([^\/]+)$/, " <html_file>\n";

open In,        "<:encoding(utf8)",  $fh or die "$fh: $!\n";
binmode STDOUT, ":encoding(iso-8859-1)";

@utf{ "\x{2019}", "\x{201c}", "\x{201d}", "\x{2026}", "\x{fffd}", "\x{2019}" } =
	qw/' " " ... ""/;

while ( <In> ){
        s/(\X)/$utf{$1}||$1/eg;
        print;
}
