sub check_bypass { my $line = shift; foreach (@_) { if ($line =~ /$_/i) {return 0} } return 1; }