>perl -wMstrict -le
"my $stamp = '100117104030';
 my ($YY, $MM, $DD, $hh, $mm, $ss) = $stamp =~ m{ \d{2} }xmsg;
 print $stamp;
 print qq{$YY $MM $DD $hh $mm $ss};
"
100117104030
10 01 17 10 40 30