use locale;
utf8::upgrade( my $s = chr(0xC9) );   # e-acute
print "Outside char class: ", $s =~ m/\w/   ? "" : "no ", "match\n";
print "Inside char class:  ", $s =~ m/[\w]/ ? "" : "no ", "match\n";