my ($year,$mon,$day,$hour,$min) = unpack('A4 A2 A2 A2 A2', $date);