$ perl5.8.6 -MMath::BigInt -e '$i = Math::BigInt->new("123_456_789_000_000_000_000"); printf "%045d\n", $i'
-00000000000000000000000000000000000000000001