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

##</code><code>##

  my %th; @th{qw( year month day )} = /(....)(..)(..)/;
  $dt = DateTime->new( %th );