>perl -MO=Terse -e "$a = $a + 1"
LISTOP (0x18a01ec) leave [1]
    OP (0x18a01d0) enter
    COP (0x18a0210) nextstate
    BINOP (0x18a024c) sassign
        BINOP (0x18a0270) add [3]
            UNOP (0x18a02b4) null [15]
                PADOP (0x18a02d4) gvsv  2
            SVOP (0x18a0294) const  SPECIAL #0 Nullsv
        UNOP (0x18a02f4) null [15]
            PADOP (0x18a0314) gvsv  1
-e syntax OK