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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

    undef $/;