while(<DATA>) {
  chomp;
  last if /^"EOS"$/;
  push @data, $_
}