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

Use of uninitialized value in pattern match (m//) at -e line 3.
0077
[download]

s/ != / !~ /x
;-)