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