What does this obfuscated bash/perl code do?
I've just found this code in a comment on a blog.

    #!/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*',/((..)*)$/)

I realise it's probably a bad idea to paste this into the terminal, but can someone untangle this and tell me what it's meant to do? I'm not even sure it's valid code :)
What does this obfuscated bash/perl code do?
===

I've just found this code in a comment on a blog.

    #!/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*',/((..)*)$/)

I realise it's probably a bad idea to paste this into the terminal, but can someone untangle this and tell me what it's meant to do? I'm not even sure it's valid code :)