$str =~ /(.{4})/g;  my $y = $1;
$str =~ /(.{2})/g;  my $m = $1;
$str =~ /(.{2})/g;  my $d = $1;