if ($line =~ /^(?:(?!throw).)*$/s) {
    debug ("Doesn't contain throw");
  }

##</code><code>##

  if ($line =~ /^(?!.*?throw)/) { ... }