b 52 ! $name =~ /^_?[^\W_0-9]\w*\z/