#!/usr/bin/perl -w
#
use strict;

my @html;

open IN, "gps.pl.htm" or die "Datei nicht gefunden / Datei konnte nicht geoeffnet werden.";
@html = <IN>;
chomp @html;
close IN;

foreach (@html) {
  convert_umlaut($_);
}

# convert_umlaut:
#
sub convert_umlaut {
  my $temp = shift;

  print "Vorher: $temp"; # \ n noch rein, kann Forum nicht

  while ($temp =~ /\ä\ü\ö\ß/i) {

    # Vor das & noch jeweils ein \
    # Forum kann das leider nicht, ersetzt es dann in ä, ö ...
    #

    $temp =~ s/\ö/&ouml\;/g;
    $temp =~ s/\ü/&uuml\;/g;
    $temp =~ s/\ä/&auml\;/g;
    $temp =~ s/\Ö/&Ouml\;/g;
    $temp =~ s/\Ü/&Uuml\;/g;
    $temp =~ s/\Ä/&Auml\;/g;
    $temp =~ s/\ß/&szlig\;/g;
  }

  print "Nacher: $temp"; # \ n noch rein, kann Forum nicht
}