$filename = '11-22-2001012004';
($x,$z,$y,$m,$d,$h) = unpack('a2xa2xa4a2a2a2', $filename)