Thanks for that.

I found that after getting @result, I had to add:

while (scalar @result < $maxdigits) {
  push @result, 0;
}
[download]

to cope with when the result is less than $maxdigits in length. (M-x mpuz, which is behind why I wrote this code in the first place, throws away results less than 5 digits in length anyway.)