#!/usr/bin/perl


$input_file="kt.txt";


open FT, "$input_file";

@input = <FT>;

close FT;

$check = "check_nrpe";
$con = "contact_groups";


foreach $list (@input) {
        if ($list =~ /PING/) {
        next;
        }
                if ($list =~ /$check/ && $list =~ /$con/) {
                        print "$list\n";
                }
}