$text =~ s/ae(?!u)/ä/g; # negativer lookahead $text =~ s/A[eE](?![uU])/Ä/g; $text =~ s/(?