Pad and truncate:

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