if ($foo) { print LOG "Exit condition $foo reached.\n"; exit 0; } #### if ($line =~ /\w+sql=\w+/i) { $db = "mysql"; $db_loc = (split(/=/, $line))[1]; } #### else { print DEBUG "Error: Couldn't parse a database out of line ($line)\n"; }