#!/usr/bin/perl

BEGIN { unshift @INC, "lib" }

use strict;
use Data::Dumper;
$| = 1;    #makes the macro produce all results at once, not in spurts

my $filename     = "RAH99.html";
my $output       = $filename;
my $backupoutput = $filename;
my $backupoutput =~ s{\.html*}{.entbackup.html}i;

open( IN, $filename );
my $book = join( '', <IN> );
close IN;

open( OUT, ">$backupoutput" );
print OUT $book;
close OUT;

$book =~ s/\u0091/&lsquo;/g;