Select Code to Download

printf("%06d\n",$_) for (123, 1234, 12345, 123456);

my $val = sprintf("%06d",123);

my $name = '012345';
my ($three) = $name =~ /^(\d\d\d)/;

use strict;

...
1234.jpg
12345.jpg
123456.jpg