Select Code to Download

my $padding = 8 - ($str % 8);

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

my $padding = 8 - (length($str) % 8);

$ perl -le '$str = q{abc}; $pad = $str % 8; print $pad;'
0
$ perl -le '$str = q{abcdefghijkl}; $pad = $str % 8; print $pad;'
0
$