$ perl -we'$x = "\xff"; print 0 + $x =~ /\w/'
0
$ perl -we'$x = "\xff"; utf8::upgrade($x); print 0 + $x =~ /\w/'
1