my $stamp = "100117104030";
my ($YY, $MM, $DD, $hh, $mm, $ss) = ($stamp =~ /^(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})/);