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

print+("print+(","\"",",","\\",")[g1012131121212133121414=~/./g]")[g10
+12131121212133121414=~/./g]

[download]

Update 2012-12-12: see also Short quines, How I Learned About Quines.

Back to Obfuscated Code