my ($tyear, $tmon, $tday) = ($today =~ /(\d{4})(\d{2})(\d{2})/);