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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

  DB<4> x $name !~ /^_?[^\W_0-9]\w*\z/
0  ''

##</code><code>##

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