my $dt = '20090405022100';

my $d = substr $dt,0,8;
my $t = substr $dt,8;