zen% perl -MMath::BigInt -e '$i = Math::BigInt->new("123_456_789_000_000"); printf "%025s\n", $i'
  0000000000123456789000000
  zen%