#!/usr/bin/perl use strict; use warnings; use Data::Dumper; while () { if (/Error/ .. /NAME2/) { print if /Error/ or /NAME1/ or /NAME2/; } } __DATA__ blabla blabla Error bla dieter bla NAME1 blabla blob kurt blub NAME2 bla blib ___________________ blabla blabla peter bla NAME1 blabla ursula blub NAME2 bla blib ___________________ blabla blabla Error bla heinz bla NAME1 blabla fred blub NAME2 bla blib