$ perl -le 'print "hello_world" =~ /^\w+$/ ? "OK" : "BAD"'
OK ---> underscore is considered alphanumeric character.