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