my ($Y,$M,$D, $h,$m,$s) = unpack('A4xA2xA2xA2xA2xA2', $time_str);