#!/usr/bin/perl

$in  = "index.html";
$out = "index2.html";

open(IN, $in);
open(OUT, ">$out");
while(<IN>) {
	# s/\270//g;
	s/\xA0//g;
	s/\x92/'/g;
	s/\x93/"/g;
	s/\x94/"/g;
	s/\x96/-/g;
#	s/\xB7/&rArr;/;
	s/\xB7/&bull;/;

	$x = $_;
	$x =~ s/[\r\t]//g;
	chomp($x);

	$x =~ s/[\x20-\x7f]//gi;
	if($x) {
		@x = split('', $x);
		$o = '';
		for $c (@x) {	
#			print "X=$c\n";
			$o .= sprintf("%02x ", ord($c))
		}	
		$" = "+";
		print "$.:$x @x [$o]\n" ;
	}
	print OUT;
}