in reply to Math::BigInt and Leading Zeros

From the source of the package - leading zeroes are stripped.
In the 'private' (_split) method:
sub _split { ... $x =~ s/^\s*([-]?)0*([0-9])/$1$2/g ... }
So you may want to re-write the substitution to:
... $x =~ s/^\s*([-]?)(0*[0-9])/$1$2/g ...
If this is acceptable at all.