DB<72> map {if ($x=(/b/../d/)) { $out[$x]=$_; $last=$x }} a..e,a..e,a..b,1..3,d..e;

  DB<73> x @out[1..$last]
0  'b'
1  1
2  2
3  3
4  'd'
  DB<74>

##</code><code>##

>perl -ne"if ($x=(/PATTERN1/.../PATTERN?/)) { $out[$x]=$_; $last=$x; }; END{ print @out[1..$last] }" input
PATTERN1 SOME INFO

TEXT4

TEXT5

TEXT6 PATTERN3 SOME INFO

C:\tmp\files>