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