Select Code to Download

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

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

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

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

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