#use locale;
use utf8;
$a = 'é';
$a =~ m/\w/ and print "first re match\n"; 
$a =~ m/[\w]/ and print "second re match\n";