use utf8;
use locale;
my $s="ü";

#Bei diesem Vergleich scheint "use locale" etwas kaputt zu machen.
if ($s =~ /\w/){
	print "match\n";
}
else{
        print "kein match\n";
}