if ($value =~ m/[^a-zA-Z0-9]/) {
[download]

If a character class starts with ^, it is a negated character class. That is, it will match any character that is not in the class. So, /[^a-zA-Z0-9]/ will match any character that is not a letter or digit.

See perlretut for a tutorial on regexps and perlre for the details.

update: My 200^th node :)

I do have a question though, why does that work, since it is not !~ and is =~?

It reads more or less "it's true if the string contains (=~) something other (^) than letters and numbers (a-zA-Z0-9)", so it works.

You can of course use !~ as well, to say "it's true if the string doesn't contains (!~) one or more letters and numbers ([a-zA-Z0-9]+) in its entirety (hence the ^ and $ that constitutes the start and end marks).

print "bad string: $string\n"
  if $string !~ /^[a-zA-Z0-9]+$/;
[download]

which I prefer to write (yes back to =~ and not !~):

print "bad string: $string\n"
  unless $string =~ /^[a-zA-Z0-9]+$/;
[download]

---

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!