($format = $format ) =~ s/\%Y/$year/g ;  # xxxx
($format = $format ) =~ s/\%m/$month/g ; # 1-12
($format = $format ) =~ s/\%d/$day/g ;   # 01-31