...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;