push @bits, substr $scalar, 0, $bytes, '' while length $scalar;