my ($mon, $day, $hour, $min) = $date =~ /(\w{3})\s+(\d\d?)\s+(\d\d):(\d\d)/;