$ s/eval/print/ | perl | perl -MO=Deparse