use utf8;
use locale;

my $tst = "wär war";

die "No match\n" unless $tst =~ /(\w+)/;

print $1, "\n";