s/(\d+)/substr"00$1",-3/eg;