s/(.*)/substr $1 . '0' x 13, 0, 13/se