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