($_=Just,$\="l hacker")=~(S_&&y,Jk csluath, hate Porn,),print,
($_=Just,$\="l hacker")=~($_&&y,Jk csluath, hate Porn,),print,
[download]

++, very Abigail-ish IMHO: it neither really features data nor logic obfu, in the sense that it's easy to see where the data is and have at least a naive understanding of what the logic does, but it's surprising that is works at all that!

There's a current discussion on perl5porters about how /$x/ behaves specially when $x is empty (and this is true to /\Q$x/ as well). That magic is totally way crazyer than the one I'm using in this obfu (or the similar one in Re^3: A cleaner way of scoping variables; or the one you get if you combine either of these with inlined constant subroutines). My obfu is topped.

P5p have decided that the feature I'm using here is a bug, and so perl 5.13.6 breaks this obfu. Try this quickily while it still works.