$n = $n =~ /^\d/ ? sprintf('%02d', $n) : $n;