Select Code to Download

my ($tyear, $tmon, $tday) = ($today =~ /^(\d{4})      # 4 digit year
                                         (\d{2})      # 2 digit month
                                         (\d{2})$/x); # 2 digit day