Here's something a little different. I know you want to match on SOMETHING, but since you'll also need to match on DATE and SOMETHINGELSE (I'm assuming), why not match all three in sequence?

To me, this is a little simpler than the buffer ideas. It probably has some flaws, but it seems to be working. 

my $tmp;
while ($tmp = <DATA>) {
   if ($tmp =~ /(DATE\d)/) {
      my %h = ();
      $h{'date'} = $1;
      $tmp = <DATA>;
      if ($tmp =~ /(SOMETHING\d)/) {
         $h{'match'} = $1;
         $tmp = <DATA>;
         if ($tmp =~ /(SOMETHINGELSE\d)/) {
            $h{'more'} = $1;
            print "$h{'match'},$h{'date'},$h{'more'}\n";
         }  else { redo; }
      } else { redo; }
   }
}

__DATA__
anything anything DATE1 anything
anything anything SOMETHING1
anything anything anything SOMETHINGELSE1

anything anything DATE2 anything
anything anything DATE3 anything
anything anything SOMETHING2
anything anything anything SOMETHINGELSE2

anything anything DATE4 anything
anything anything SOMETHING3
anything anything DATE5 anything
anything anything SOMETHING4
anything anything anything SOMETHINGELSE3

[download]

That returns: 

SOMETHING1,DATE1,SOMETHINGELSE1
SOMETHING2,DATE3,SOMETHINGELSE2
SOMETHING4,DATE5,SOMETHINGELSE3

[download]

Hope this helps.

In reply to Re: Lines above and Below a matched string by svsingh
in thread Lines above and Below a matched string by Anonymous Monk

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.