79 $book =~ s/û/û/g;
80 $book =~ s/ü/ü/g;

82 my $utf8 = qq!<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />!;

84 $book = "I have changed the most common Unicode characters into HTML entities.\n\nUse this search term to find any leftovers: [€-ÿ]\n\nAlso, don't forget to add a UTF-8 meta tag to your header:\n\n$utf8\n\n".$book;


87 open (OUT, ">$filename");
88 print OUT $book;
89 close OUT;