Select Code to Download

    (my $date) = grep m%\w+, \w+ \d\d, \d\d\d\d%, @file;
    $date =~ m%\w+, (\w+ \d\d, \d\d\d\d)%;

    my($date) = map m%\w+, (\w+ \d\d, \d\d\d\d)%, @file;

    local $/ = \1024;
    my $begin = <F>;
    my ($date) = $begin =~ m%\w+, (\w+ \d\d, \d\d\d\d)%;
    my $time = str2time($date);

    undef $/;