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