See sprintf

For example:

# Format number with up to 8 leading zeroes
$result = sprintf("%08d", $number);

mike

Updated: Added a real link to the perl docs.