my $string = 'foo';
my $len = 15;
$string = sprintf "%${len}s", $string;
print $string;