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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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