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