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