$ perl -MO=Terse /tmp/censor.pl
LISTOP (0x8185fc8) leave [1]
    OP (0x8123230) enter
    COP (0x8184320) nextstate
    BINOP (0x8185fa0) sassign
        SVOP (0x8185f80) const  PV (0x812a9b4) ""
        UNOP (0x8185f60) null [15]
            SVOP (0x8127148) gvsv  GV (0x812aa14) *Freedom
    COP (0x8186108) nextstate
    BINOP (0x81860e0) sassign
        SVOP (0x81860c0) const  PV (0x812aa38) ""
        UNOP (0x81860a0) null [15]
            SVOP (0x8185ff0) gvsv  GV (0x812a9a8) *Censorship
    COP (0x81231f0) nextstate
    UNOP (0x81231d0) null
        LOGOP (0x81231a8) cond_expr
            BINOP (0x81861a8) eq
                UNOP (0x8186168) null [15]
                    SVOP (0x8186148) gvsv  GV (0x812aa14) *Freedom
                SVOP (0x8186188) const  IV (0x811f568) 1
            LISTOP (0x8186298) leave
                OP (0x8123188) enter
                COP (0x8186258) nextstate
                BINOP (0x8186230) sassign
                    SVOP (0x8186210) const  IV (0x812a9e4) 0
                    UNOP (0x81861f0) null [15]
                        SVOP (0x81861d0) gvsv  GV (0x812a9a8) *Censorship
            UNOP (0x8123168) null
                LOGOP (0x8123140) and
                    BINOP (0x812db50) eq
                        UNOP (0x8184060) null [15]
                            SVOP (0x81862c0) gvsv  GV (0x812a9fc) *Censorhip
                        SVOP (0x81862f8) const  IV (0x812aa08) 1
                    LISTOP (0x81230f8) leave
                        OP (0x8123120) enter
                        COP (0x81230b8) nextstate
                        BINOP (0x8123090) sassign
                            SVOP (0x8123070) const  IV (0x812a9d8) 0
                            UNOP (0x8123050) null [15]
                                SVOP (0x812db78) gvsv  GV (0x812aa14) *Freedom
/tmp/censor.pl syntax OK