Obfuscated Perl

s;;5776?12321=10609$d=9409:12100$xx;;s;(d*);push @_,$1;eg;
map{print chr(sqrt($_))."n"} @_;

Guess what it prints:
L
o
g
a
n
Well... I'm proud of it.  PerlMonks have shortened it.

Leave a Reply

You must be logged in to post a comment.