sub sonderzeichen {
	my ($line) = @_;
	
	# &
	$line =~ s/&/\&amp\;/g;
	# ß
	$line =~ s/ß/\&szlig\;/g;
	# ä
	$line =~ s/ä/\&auml\;/g;
	# Ä
	$line =~ s/Ä/\&Auml\;/g;
	# ö
	$line =~ s/ö/\&ouml\;/g;
	# Ö
	$line =~ s/Ö/\&Ouml\;/g;
	# ü
	$line =~ s/ü/\&uuml\;/g;
	# Ü
	$line =~ s/Ü/\&Uuml\;/g;
	# á - kleines a mit Accent grave
	$line =~ s/á/\&agrave\;/g;
	# " - doppeltes Anführungszeichen
	$line =~ s/"/\&quot\;/g;
	# '
	$line =~ s/'/\&apos\;/g;
	# <
	#$line =~ s/</\&lt\;/g; !!! Dann gehen die HTML Codes nicht mehr!!!
	# >
	#$line =~ s/>/\&gt\;/g;
	# §
	$line =~ s/§/\&sect\;/g;
	# ²
	$line =~ s/²/\&sup2\;/g;
	# ³
	$line =~ s/³/\&sup3\;/g;
	# €
	$line =~ s/€/\&euro\;/g;

	# veränderte Zeile zurückgeben
	return $line;
	}