if ($input =~ /something I already know is dangerous/) { die 'I refuse to handle this!'; }

##</code><code>##

if ($input !~ /^only stuff I know is fine$/) { die 'I refuse to handle this!'; }