>perl -wMstrict -le
"my $s = '20090527051000';
 my @matches = $s =~ m{ \A \d{4} | \d{2} }xmsg;
 print qq{@matches};
"
2009 05 27 05 10 00