# Takes a variable and spits it back out with the proper german characters
sub germanchars_to_strange_html_chars {
	my $var = shift;
	my %table = ( 'ß' => 'ß', 'ä' => 'ä', 'ö' => 'ö',
		      'Ä' => 'ä', 'Ö' => 'ö', 'Ü' => 'ü',
		      'ü' => 'ü');


	while (my ($k,$v) = each %table) {
		$var =~ s/$k/$v/g;
	}

	return $var;
}