my $t = shift;
	$t =~ s/(ä|Ä)/AE/g; #Ä
	$t =~ s/(ö|Ö)/OE/g; #Ö
	$t =~ s/(ü|Ü)/UE/g; #Ü
	$t =~ s/(ß)/SZ/g; #ß
	$t =~ s/(å|á|æ|â)/a/g; #ä|å|á|æ
	$t =~ s/(ø)/o/g; #ö
	$t =~ s/(é)/e/g; #é
	$t =~ s/(î)/i/g;#î
	$t =~ s/(Î)/I/g;#Î
	$t =~ s/(Å|Á|Æ|Â)/A/g;#Å|Ä|Á|Æ
	$t =~ s/(Ö|Ø)/O/g;
	$t =~ s/[^a-z0-9\,\.\s\/\-\@\:]//ig;
	return $t;