if ( $scalar !~ /[^12345]/ ) {
  print "match";
}
[download]

Hmm, that double negative sure is confusing. Maybe simplifying it would be a little clearer (I know regexes pretty well and I had to think about this for a second...)

if ( $scalar =~ /[^12345]/ ) {
  print "Illegal parameter: $scalar";
} else {
  print "Acceptable parameter: $scalar";
}
[download]

if it matches any character that isn't a 1-5 then it is bad

much easier (read faster) to understand than

if it does not match any character that is not a 1-5 then it is good.

I agree im probably being a bit pedantic but I think you can see what I mean...

Yves / DeMerphq
---
Writing a good benchmark isnt as easy as it might look.