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