s/(\d+)/sprintf("%013d", $1)/eg

##</code><code>##

s/(\d+)/reverse(sprintf("%013d", scalar(reverse($1))))/eg;