$x = "\x{9e}"; # A-acute accent { use local; ($x =~ /a..zA..Z/) ? print "true\n" : print "not true\n"; }