sub ansi2ascii {
  $_ = $_[0];
  y/Ä/´/;  # unvollständig
  y/Ü/¨/;
  y/ß/á/;
  y/è/¦/;
  y/È/Ô/;
  y/Ê/Ò/;
  y/Í/Ö/;
  y/Ì/Þ/;
  y/Î/×/;
  y/í/¡/;
  y/Ó/à/;
  y/Ò/ã/;
  y/Ô/â/;
  y/Ú/é/;
  y/Ù/ë/;
  y/Û/ê/;
  y/ú/£/;
  y/õ/ä/;

  return $_;
}