1 2 3 4 5
my $c = 0; my $s = 'string'; my $m = 10; $s = $c x ($m - length($s)) . $s; print "$s\n";
1
0000string