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

Not really obfuscated per se, but it sure doesn't belong in any of the other categories, so... here is my first Perl quine that doesn't cheat by reading its own source code:

#!/usr/bin/perl
$p='$q=chr(39);$t=chr(34);$h="Content-type: text/html\n\n<h"
."tml><head><title>$0</title></head><body><pre>#!/usr/bin/p"
."erl\n\$p=$q";$_=$p;$\="$q;eval\$p;</pre></body></html>$/";
s/&/&amp;/g;s/</&lt;/g;s/>/&gt;/g;s/$q/&#39;/g;s/$t/&quot;/g
;print$h.$_;';eval$p;

[download]

Back to Obfuscated Code