$o = pack( 'b*', $_{9} );
foreach $_ ( 0 .. unpack( '%b*', $o ) - 2 ) {
# 16 bit checksum = 25, - 2 = 23