use strict;
use warnings "all";

my %m2d = (
January => "01",
February => "02",
Feb => "02",
March => "03",
April => "04",
May => "05",
June => "06",
July => "07",
August => "08",
September => "09",
October => "10",
November => "11",
December => "12"
);

my %dates;
while (<>) {
    chomp;
    if (m/(?:Tuesday|Friday|Sunday) (\d+?) (.+?) (\d{4})/) {
        $dates{sprintf("%02d%02d%04d", $3, $m2d{$2}, $1)} = $_;
    }
}


my @l = sort keys %dates;
print "$dates{$l[0]} - $dates{$l[$#l]}\n";