substr $arr[-1], -$padding, $padding, q{} if $padding;