swap order of bitwise and to avoid confusion in perl < 5.10