83 $book =~ s/û/û/g;
84 $book =~ s/ü/ü/g;

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

88 $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;

91 open (OUT, ">$filename") or die "Couldn't create '$filename': $!";  #New from Corion
92 print OUT $book;
93 close OUT;