open(NAG,"nagios") or dir $!;


my $start = qr/^define/;
my $end = qr/^\}$/;

my @array;
while (<NAG>) {
    if (/$start/ .. /$end/) {
        push @array, $_;
    }
}

foreach (@array) {
    if (/192.168.1.1/) {
        print $_;
    }
}