Help for this page
#!/usr/bin/perl use strict; ... $book =~ s/‘/‘/g;
$book =~ s/ü/ü/g; ... open (OUT, ">$filename"); print OUT $book; close OUT;