$ perl5.8.6 -MMath::BigInt -e '$i = Math::BigInt->new("123_456_789_000_000"); $s = $i->bstr(); $s = '0' x (25 - length $s) . $s; print $s,$/'
0000000000123456789000000