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