if ( name =~ /^_?[^\W_0-9]\w*\z/ and !$forbidden{ name() }) {