use SuperSplit;
$a = supersplit( '|',"\n","\n\n", $data_in_one_string);
print $a->[0][1][2]; #will print 'Pokey Reese'
[download]

...open file...
$linescore = 0;
while(<DATA>) {
  if($linescore) {
    last if /^\s*$/; #break the loop if you find a
        ## blank line after a LINESCORE
    chomp; #clear off \n
    push @LS, $_;
  } elsif(/^LINESCORE/) {  
    $linescore = 1 
  }
}
close DATA;
[download]

my @linescore;
my @everything_else;

while(<DATA>) {
  if(/^LINESCORE$/ .. /^\s*$/) {
    push @linescore, $_;
  } else {
    push @everything_else, $_;
  }
}
[download]

bbfu
Seasons don't fear The Reaper.
Nor do the wind, the sun, and the rain.
We can be like they are.

Just to add to this, the other thing you could do instead of looking for a blank line, is to just read in the next two lines after linescore. Basically..

my $ls = 0;
while (<SCORES>) {
  if (/^LINESCORE/) {
    $ls++;
  }  
  #linescore is greater than 1(we found LINESCORE) and less than 3(we 
+haven't read 2 lines yet)
  elsif ($ls && $ls < 3) {
    chomp;
    push @line, $_;
    $ls++
  }
}
[download]

Hope this helps..
Rich

use IO::File ();
my $fh = IO::File->new($filename,'r');

### slurp it in
my $txt;
read($fh,$txt,-s $filename);

my $LS = ($txt=~s/^(LINESCORE(.+?)\n\r?\n)//s) 
  ? $1 : '';
[download]