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

##</code><code>##

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