$_ = sprintf '%-*s', $len, $_;