in reply to A Procrustean Statement
$_ = sprintf '%-*s', $len, $_; [download]
$_ = sprintf '%-*.*s', $len, $len, $_; [download]