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

##</code><code>##

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