$ sed 's/eval/print/' obfu.pl | perl | perl -MO=Deparse