http://www.perlmonks.org?node_id=173480


in reply to Self-explanatory program of free will

Hmm, indeed Perl is very peculiar in its faculties. One can cleverly disguise a perl code for a plain text. Here, I've tried to spoil your obfuscation a bit. It ends up being just a couple statements. And the text that is getting printed is the result of substitution on the '$_' scalar. Since, $_ initially doesn't hold anything, by replacing '' (nothing) with ' you any point why program this can not start its run of lif', this text is saved in the '$_' variable, which you then output with the print; method.
exit if s// you any point why program this can not start its run of lif/ and print "$_" or do'not print what it decides to thus giving us example of free will! +'


_____________________
$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+) +-.*)$/; $_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print" +- $1"}&&`rm $1`; print$\;}