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