>perl -MO=Terse -e"my $x = qq{Hello World\n}; print($x);"
LISTOP (0x1985394) leave [1]
    OP (0x19852bc) enter
    COP (0x19853b8) nextstate
    BINOP (0x19853f4) sassign
        SVOP (0x1985418) const [3] PV (0x225eac) "Hello World\n"
        OP (0x1985498) padsv [1]
    COP (0x19852fc) nextstate
    LISTOP (0x1985354) print
        OP (0x1985338) pushmark
        OP (0x1985378) padsv [1]
-e syntax OK