>perl -MO=Terse -e "print qq{Hello, world!\n};"
LISTOP (0x1ab0b04) leave [1]
    OP (0x1ab8bac) enter
    COP (0x1ab0b3c) nextstate
    LISTOP (0x1ab0bb8) print
        OP (0x1ab0b90) pushmark
        SVOP (0x1ab0be0) const  SPECIAL #0 Nullsv
-e syntax OK