in reply to Prepending 0's to 1000

use warnings;
use strict;

print sprintf("%04d", 7);

[download]

In Section Seekers of Perl Wisdom