#!/usr/bin/perl -w # use strict; my @html; open IN, "gps.pl.htm" or die "Datei nicht gefunden / Datei konnte nicht geoeffnet werden."; @html = ; 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/\ö/ö\;/g; $temp =~ s/\ü/ü\;/g; $temp =~ s/\ä/ä\;/g; $temp =~ s/\Ö/Ö\;/g; $temp =~ s/\Ü/Ü\;/g; $temp =~ s/\Ä/Ä\;/g; $temp =~ s/\ß/ß\;/g;   }   print "Nacher: $temp"; # \ n noch rein, kann Forum nicht }