$ perl -wE 'my $foo = "ë"; say $foo =~ /\w/ || 0; say uc $foo'
0
ë
$ perl -wE 'my $foo = "ë"; utf8::upgrade $foo; say $foo =~ /\w/ || 0; say uc $foo'
1
ë
$