in reply to how to remove matched multi lines

open NAG, '<', 'nagios' or die "Cannot open 'nagios' $!";

$/ = "}\n";

while ( <NAG> ) {
    print if /\b192\.168\.1\.1\b/;
    }

[download]

In Section Seekers of Perl Wisdom