#!/usr/bin/perl
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/‘/&lsquo;/g;