sprintf '%-*s', $length, $string