Select Code to Download

$padded = sprintf("%-10s", $string);    #or use pack "A10"
$padded = s/( +)$/"0" x length $1/e;

$padded = reverse sprintf("%010s", scalar reverse $string);

$padded = "0" x 10;
substr($padded, 0, length $string) = $string;