Dear diotalevi

I also love reading Umberto Eco's books.

Your nick is a nice mispell. I never could choose a better one.

With all respect that your post deserves, I think that you forgot the purpose of this section: "Obfuscation" means that things here must look weird, at least ;-]

I'm quite sure you're a lot better than me on make things look strange, but here is my two cents:

lets change

@a = split //, "justin";
@b = split //, "anthony";
@c = split //, "peter";
@d = split //, "lucky";
$" = '';
$\ = "\n";
$, = " ";
[download]

for the more compact

($a,$",$\,$,)=('a','',"\n",' ');
map{@{$a++}=split//}qw|justin anthony peter lucky|;
[download]

What will lead us to (I shortened this a little):

($a,$",$\,$,)=('a','',"\n",' ');
map{@{$a++}=split//}qw|justin anthony peter lucky|;
print join$",@{($a='a')++}[0..3],$,,@{$a++}[0,1,4,
      ,2,3],@{$a}[3,4],$,,@{$a++}[0,1,4],${$a}[0],
      $,,@{($a='b')++}[3,0],@{++$a}[2,3],++$a,'r';
[download]

That is beautifull, even not looking as didatic as you made it the first time. Maybe someone else could golf it down to a line or two (please?).

BTW, nice post, Mr. .:G0BLiN:.. I spent a nice time hacking trough your code. Thank you for that.

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Luis Campos de Carvalho
Just Another Perl Programmer
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=