Select Code to Download

C:\Perl64\bin>Perl entities_99.pl
"my" variable $backupoutput masks earlier declaration in same scope at
+ entities_99.pl line 11.
Use of uninitialized value $backupoutput in substitution (s///) at ent
+ities_99.pl line 11.
Use of uninitialized value $backupoutput in concatenation (.) or strin
+g at entities_99.pl line 17.
print() on closed filehandle OUT at entities_99.pl line 18.

1 #!/usr/bin/perl -w

...

22 $book =~ s/‘/‘/g;
23 $book =~ s/’/’/g;

79 $book =~ s/û/û/g;
80 $book =~ s/ü/ü/g;
...
87 open (OUT, ">$filename");
88 print OUT $book;
89 close OUT;