Here's one that uses almost no storage, by seeking back to the last PATTERN1 and re-reading the input file. Note that this will not work on a pipe. 

#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11111545
use warnings;

my $fh = *DATA; # FIXME to your input file, DATA only used for testing

my $lastpattern1;
while( <$fh> )
  {
  if( /PATTERN1/ )
    {
    $lastpattern1 = tell($fh) - length $_;
    }
  elsif( $lastpattern1 and /PATTERN3/ )
    {
    seek $fh, $lastpattern1, 0;
    while( <$fh> )
      {
      my $end = s/ (?=PATTERN3)/\n\n/;
      print;
      $end and last;
      }
    $lastpattern1 = undef;
    }
  }

__DATA__
PATTERN1 SOME INFO

TEXT1

TEXT2

TEXT3 PATTERN2 SOME INFO

PATTERN1 SOME INFO

TEXT4

TEXT5

TEXT6 PATTERN3 SOME INFO

PATTERN1 SOME INFO

TEXT1

TEXT2

TEXT3 PATTERN4 SOME INFO

PATTERN1 SOME INFO

TEXT4

TEXT55

TEXT6 PATTERN3 SOME INFO

[download]

I also do the fix up on the PATTERN3 line, though I'm curious if that was just a typo on your part?

In reply to Re: command line perl command to get between lines with non greedy match by tybalt89
in thread command line perl command to get between lines with non greedy match by ravi_perl_monks

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.