use strict;

my $text = 'abc\def';

print "'$text' enthält Umlaut!" if $text =~ m~[\ä\ö\ü\ß\Ä\Ö\Ü]~;