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