if ($str =~ /^[\w-\d]+$/) { ... }