sub reverseBitsIn8BitChar {
    my $c = shift;
    return 0xFF & ((($c * 0x0802 & 0x22110) | ($c * 0x8020 & 0x88440)) * 0x10101 >> 16);
}