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