/(....)(..)(..)/; $dt = DateTime->new( year => $1, month => $2, day => $3 );