Select Code to Download

my ($dummy, $dummy, $result) = map /(\d\d \w\w\w \d\d\d\d)/, split /\n
+/, $content;

my $match = 0;
my $result = undef;
...
  if(/End Date/) { $match = 1 }
  elsif($match && /(\d\d \w\w\w \d\d\d\d)/) { $result = $1; last; }
}