Select Code to Download

/^\s+Order ID:([a-zA-Z0-9-]+)\s+fiscal cycle:(\d+)/

my $in_rec = 0;
my ($head_re, $tail_re) = (qr/Start of record/, qr/End of record/);
...
    push @record, $_ if $in_rec;
  }
}