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

##</code><code>##

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