Select Code to Download

my ($yr, $mon, $day, $hr, $min, $sec) = unpack('A4A2A2A2A2A2', $st
+r);

my ($yr, $mon, $day, $hr, $min, $sec) = unpack('A4A2A2A2A2A2', $str);