sub update {
      local $_ = shift;

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