for ($year, $month, $day) {
      if (/\b\d{1}\b/) {
         $_ = "0$_";
      }
   }