in reply to regex negation without !~
if (!($str =~ /^FOO$/)) { //do something for no match } [download]