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