my $c = 0;
my $s = 'string';
my $m = 10;
$s = $c x ($m - length($s)) . $s;
print "$s\n";

0000string