Select Code to Download

my @array;
while (<DATA>) { last if /^d/ } #discard until the first match
...
   }
   push @array, $_;
}

my $data  = join('',<DATA>);
my @chunk = split(/^\d/m, $data);

foreach (@chunk) { process_array( split(/\n/s, $_) ) }