{
  local $/ = "TTY";
  open FILE, "<", $filename or die "open $filename: $!\n";
  my @ttys = <FILE>;
  my @data = ();
  foreach (@ttys) {
    push @data, $_;
    last if /EOS/;
  }
  close FILE or die "close $filename: $!\n";
}