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