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$\;}