try those two:

s/(\d*)/sprintf("%06d",$1)/e;
m/^(\d{3})/
[download]