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