# prepare a common pattern
my $patternWUmlauts=qr/[\wäöüÄÖÜß]+/;