Happy 25 anniversary, Perl

到今年12月18号为止，Perl已经经历了25个年头。有人写了一个oneliner来庆祝他的生日：

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'

 输出如下：

 

▒▓▒▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▓▓▒▒▒▓▒▒▒▒▒▒▓▒▒▓▒▒▒▒▒▓▒▒▒▒▒▒▒▒▒▒▒▓▓▒▒▒▒▒▒▒▒▒▒▓▒▒▒
▒▓▒▓▒▒▓▓▒▓▓▒▒▓▓▒▒▓▒▓▒▒▒▓▒▓▒▒▒▒▓▓▓▒▓▓▓▒▓▓▒▒▒▓▓▒▒▓▓▒▓▒▓▒▒▒▓▒▓▒▓▓▓▒▓▓▓▒▓▒▒▒
▒▓▓▓▒▓▒▓▒▓▒▓▒▓▒▓▒▓▓▓▒▒▒▓▓▒▒▒▓▒▓▒▒▒▒▓▒▒▓▒▓▒▓▒▓▒▓▒▓▒▓▓▓▒▒▒▓▓▒▒▓▓▒▒▓▒▒▒▓▒▒▒
▒▓▒▓▒▒▓▓▒▓▓▒▒▓▓▒▒▒▒▓▒▒▒▓▒▓▒▒▓▒▓▒▒▒▒▓▒▒▓▒▓▒▒▓▓▒▒▓▓▒▒▒▓▒▒▒▓▒▒▒▓▓▓▒▓▒▒▒▒▓▒▒
▒▓▒▓▒▒▒▒▒▓▒▒▒▓▒▒▒▓▓▒▒▒▒▓▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▓▓▒▒▒▒▓▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

 

这里 是作者的详细解释。