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