$u =~ s/(\d+)/"0"x(6-length($1)).$1/e; if length($u) < 6;