$ymd =~ s/ //g;
#  return ' 'x10 if $ymd eq $NULL_DATE;
  my ($y,$m,$d) = split /\D/,$ymd;