This is actually my .signature at home and at work. I get heaps of people who ask what it means. :)
##----Sam-Sargeant---------------------------------Whackass.com----##
until($x>=40){print$"x$x;for('#4V%M','+(%-A<F=E86YT("T`','%($IU<W0`',
'(($%N;W1H97(`','.(%!E<FP@2&%C:V5R(0H`'){print unpack('u*',$_)}$x+=2}
##.................................................................##

Replies are listed 'Best First'.
RE: My .signature.
by halxd2 (Monk) on May 11, 2000 at 01:49 UTC
    That is so cool. I'm still trying to pull it apart. What is going on in that for loop?
      Well I can't give all of it away. :) Remember that if you pass for() a list, it acts in just the same way as foreach().
        Okay, me have now bin chekin out dis for a while, wot da hell does it mean ? yous got to tell me, me cant sleep hat night.
RE: My .signature.
by rjimlad (Acolyte) on May 25, 2000 at 21:18 UTC
    Hmmm... it's quite good (although I disapprove of obfuscation by packing/expanding data ;) ). I worked out roughly what it did pretty quickly, but I tried to work out what it said manually (ie, without Perl), which was damn hard because I didn't know UUencode. And there's the fact that the first character is actually the string length(Is that a Perl thing or a UUencode thing? Perl, I presume). Anyway, it's nice and short, and it gives pretty output. Nice one :) ---- Arrr, Jim lad.
RE: My .signature.
by [000000] (Initiate) on May 26, 2000 at 17:46 UTC
    Okay me got it now, fit wicked . Boyakasha!