C:\tmp\files>perl -nE" @o=() if /PATTERN1/; push @o,$_; say qq(<@o>) if /PATTERN3/ " input2
<PATTERN1 SOME INFO

 TEXT4

 TEXT5

 TEXT6 PATTERN3 SOME INFO
>
<PATTERN1 SOME INFO

 TEXT4

 TEXT5

 TEXT6 PATTERN3 SOME INFO
>

C:\tmp\files>