C:\test>perl -MO=Terse -E"$a=int rand 2**64;$b=int rand 2**64; $count = unpack '%32b*', $a & $b"
LISTOP (0x33e7460) leave [1]
    OP (0x33e6e60) enter
    COP (0x33e74a0) nextstate
    BINOP (0x33e7508) sassign
        UNOP (0x33e7548) int [4]
            UNOP (0x33e7580) rand [3]
                SVOP (0x33e75b8) const [13] NV (0x32ca498) 1.84467440737096e+019
        UNOP (0x33e76a0) null [15]
            PADOP (0x33e76d8) gvsv  GV (0x107668) *a
    COP (0x33e71f0) nextstate
    BINOP (0x33e7258) sassign
        UNOP (0x33e7298) int [8]
            UNOP (0x33e72d0) rand [7]
                SVOP (0x33e7308) const [14] NV (0x32ca5a0) 1.84467440737096e+019
        UNOP (0x33e73f0) null [15]
            PADOP (0x33e7428) gvsv  GV (0x32ca510) *b
    COP (0x33e6ed0) nextstate
    BINOP (0x33e6f38) sassign
        LISTOP (0x33e6fa8) unpack
            OP (0x33e6f78) null [3]
            SVOP (0x33e7108) const [15] PV (0x32ca600) "%32b*"
            BINOP (0x33e6fe8) bit_and [12]
                UNOP (0x33e7098) null [15]
                    PADOP (0x33e70d0) gvsv  GV (0x107668) *a
                UNOP (0x33e7028) null [15]
                    PADOP (0x33e7060) gvsv  GV (0x32ca510) *b
        UNOP (0x33e7140) null [15]
            PADOP (0x33e7178) gvsv  GV (0x32ca5d0) *count
-e syntax OK