#
## Funktion Tauschen diverser Spezialzeichen aus Win-1252 #####################
#
   sub update
   {
      $_ =~ s/\xc4/Ä/g;
      $_ =~ s/\xe4/ä/g;
      $_ =~ s/\xd6/Ö/g;
      $_ =~ s/\xf4/ö/g;
      $_ =~ s/\xdc/Ü/g;
      $_ =~ s/\xfc/ü/g;
      $_ =~ s/\xdf/ß/g;
      $_ =~ s/\x80/&euro/g;
      return;
   }