in reply to Math::BigInt and Leading Zeros
sub _split { ... $x =~ s/^\s*([-]?)0*([0-9])/$1$2/g ... } [download]
... $x =~ s/^\s*([-]?)(0*[0-9])/$1$2/g ... [download]