my $y = substr($str, 0, 4);
my $m = substr($str, 4, 2);
my $d = substr($str, 6, 2);