my %ascii2htmlReplacements = (
chr(225) => 'ß', # ß
chr(132) => 'ä', # ä
chr(148) => 'ö', # ö
chr(129) => 'ü', # ü
chr(142) => 'Ä', # Ä
chr(153) => 'Ö', # Ö
chr(154) => 'Ü', # Ü
chr(000) => '„', # " unten
chr(000) => '‚', # '
chr(150) => '–', # Gedankenstrich
);
# replace ascii-special chars with ansi
foreach (keys %ascii2htmlReplacements) {
$htmlcode =~ s/\Q$_\E/$ascii2htmlReplacements{$_}/ge;
}