open (TXTFILE , ">obf.txt");
print TXTFILE $string;
close(TXTFILE);
#deparse
$string = `perl -MO=Deparse -f obf.txt`;