#!/usr/bin/perl

open(DATA, "< gps.pl.htm");
@data=<DATA>;
close(DATA);

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

sub convert_umlaut
{
    $temp=shift;
    $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 $temp;
}