End Date^M ^M ^M 19 Jun 2012^M #### my ($result) = $content =~ /End Date.*(\d\d \w\w\w \d\d\d\d)/;