or download this
c:\@Work\Perl\monks>perl -wMstrict -le
"use charnames ':full';
...
# 'ô'
# doesn't match '(?^msx: \A (?^msx: [A-Za-z0-9] ) (?: (?^msx: (
+?^msx: [A-Za-z0-9] ) | [_.-] )* (?^msx: [A-Za-z0-9] ))? \z )'
# Looks like you failed 2 tests of 2.