Select Code to Download

while( <DATA> ) {
  next if $. < 5;
...
  my @fields = unpack '(a7x)2a7', $_;
  # Do something with the fields.
}

my $record_start = 0;
my @recs;
...
    push @{$recs[-1]}, [@fields];
  }
}