in reply to Leading Zeros

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

[download]

In Section Seekers of Perl Wisdom