$_="2003 % 05 % 1720:55:23";
s/\D+//g;
($y, $m, $d, $H, $M, $S)=unpack("a4a2a2a2a2a2", $_);