print "foo!" unless /\S/; # too many negatives 

if (grep {is_important{$_}} map {mangle{$_}} $obj->method; # too complicated, too much span

{
 #begin brace1
  {
   #begin brace2
    {
     #begin brace3
     ...
     #begin brace-n

       # too much nesting!

# and so forth