C:\tmp\files>perl -ne"@out=() if /PATTERN1/; push @out,$_ if /PATTERN1/../PATTERN3/; END{ print @out }" input PATTERN1 SOME INFO TEXT4 TEXT5 TEXT6 PATTERN3 SOME INFO C:\tmp\files>