x $name =~ /^_?[^\W_0-9]\w*\z/ 1