my $w = 5;
my $str = "abc";
my $line = sprintf "%${w}s ", $str;
print "'$line'\n";
__END__
'  abc '