my (month, $day) = $line[4]  =~ m/(\d+):(\d+)/;