$key =~ s/(\d+)/sprintf "%03d", $1/eg;