my $content = <<EOT;
Blah blah
12 Feb 1992  # Wrong date!
Mah Mah Mah
End Date: 14 Jul 2007 # Correct date!
EOT

$content =~ /End Date/g
     and $content =~ /(\d\d \w\w\w \d\d\d\d)/
     and my $result1 = $1;

say "Ikegami's end date: $result1";

pos($content) = 0;

$content =~ /End Date/g
     and $content =~ /(\d\d \w\w\w \d\d\d\d)/g
     and my $result2 = $1;

say "JavaFan's end date: $result2";
__END__
Ikegami's end date: 12 Feb 1992
JavaFan's end date: 14 Jul 2007