if (!($input =~ /badinput/)) { ... }