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