世界上最难的语言－perl

print pack"C*",split/\D+/,`echo "16iII*o\U@{$/=$z;[(pop,pop,unpack"H*",<> )]}\EsMsKsN0[lN*1lK[d2%Sa2/d0<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<J]dsJxp"|dc`
好不容易又被我找到这段代码了。
当我第一次看到这段代码时，我就把perl归入了世界上最难的语言之一，当然现在我是知道了不是所有的perl程序都是这样的，而且对于RE也有了比较深入的认识，但是对于perl语言的强大和变态（怎么能有可读性怎么差的写法存在？和汇编差不多了）
这段代码是实现RSA的行数最少的代码，更多的内容可以查看http://www.cypherspace.org/adam/rsa/story.html