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

##</code><code>##

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