substr($month,0,1,"0$month") if ($month<10 && $month!~/^0/);