Select Code to Download

$padded = sprintf("%${pad_len}s", $text);

$padded = sprintf("%04d", $text);

#!/usr/bin/perl -w
use strict;
...
my $padded2 = sprintf("%${pad_len}s", $string2);

print "|$padded1|\n|$padded2|\n";

|     12345|
|1234567890|