my @linescore;
my @everything_else;

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