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