RSA in 3 lines of perl (Score 1)

since this was mentioned a couple of times, here is a link to jay dyson's page on his tattoo: http://www.treachery.net/~jdyson/crypto/tattoo.html. the text of his tattoo reads:

WARNING: THIS MAN IS CLASSIFIED AS A MUNITION
[U.S. ITAR/EAR REGULATIONS -- RSA IN THREE LINES OF PERL]

#!/bin/perl -sp0777i<X+d*lMLa^*lN%0]dsXx++lMlN/dsM0<j]dsj
$/=unpack('H*',$_);$_=`echo 16dio\U$k"SK$/SM$n\EsN0p[lN*1
lK[d2%Sa2/d0$^Ixp"|dc`;s/\W//g;$_=pack('H*',/((..)*)$/)

FEDERAL LAW PROHIBITS TRANSFER OF THIS MAN TO FOREIGNERS.