Select Code to Download

print("\n ######################### \n");
    $fmt1 = '(?<y>\d\d\d\d)-(?<m>\d\d)-(?<d>\d\d)';
...
        }
        }

print("\n ######################### \n");
    $fmt1 = '(?<y>\d\d\d\d)-(?<m>\d\d)-(?<d>\d\d)';
...
            print "day=$+{d} month=$+{m} year=$+{y}\n";
        }
        }