use strict;
use utf8;
my $s = 'ü';
print $s =~ /\w/;  # Ausgabe: 1