Select Code to Download

my ($dummy, $dummy, $result) = ...;

my (undef, undef, $result) = ...;

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

my ($result) = $content =~ /End Date.*?(\d\d \w\w\w \d\d\d\d)/s;