s/(\d+)/sprintf '%04d', $1/e