Happy Birthday Perl

Happy 25th Birthday, Perl! I made you a card:

perl -C -e'print map+(v9635 x8^unpack B8).(v10)[++$n%9],(unpack u,"MK__^=^WW_S_WK)FNO\$3F5U\$7BJJ.=>U51S-WK)GNM>UF=W%[K[N>?___SW__")=~/./g'


Yes, really nice!
can you please explain it?
(I know, it is much asked to explain a gift, but I really don't get it..)

Wide character in print at -e line 1.

Thanks for the explanation. :-)
cool tricks!

Leave a comment

About Michał Wojciechowski

user-pic I blog about Perl.