for my $key ( sort (keys %tr) ) {
my $value = $tr{$key};
- $value =~ s/ä/ä/g;
- $value =~ s/ö/ö/g;
- $value =~ s/ü/ü/g;
- $value =~ s/Ä/Ã\84/g;
- $value =~ s/Ö/Ã\96/g;
- $value =~ s/Ü/Ã\9c/g;
- $value =~ s/ß/Ã\9f/g;
$value =~ s/\'/\\\'/g;
print FILE "\'$key\' => \'$value\',\n";
}