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; }