Ok. I just thought "Hm... What would be a nice signature?". Suddenly my brain answered:"Maybe a little JAPH?" 
#!/usr/bin/perl -w
use strict;$;="qFHG ZMLGSVI kVIO SZXPVI!\n";@$=('a'..'z', 'A'..'Z');($
+/=join('',
@$).",")&&(@$=reverse(@$));$$=(join('',@$)."!");eval("\$;=~y/$$/$//;")
+;print $;;

[download]

Replies are listed 'Best First'.
Re: Small first strict obfuscation
by idnopheq (Chaplain) on Apr 05, 2001 at 02:38 UTC
    Okay ... need some help here ...

    From Prog. Perl 2nd Edition

    $; is the subscript separator
    $/ is the input record separator
    $$ is the PID ???? [i.e. $$=(join('',@$)."!");]

    What is @$ ? Swap every? PerlMonks search returned nothing.

    Even though I don't get it, the !bleep!-ing thing works as designed!!!!

    Help! TIA
    Dex

    I enjoy unobfuscating obfuscation

[reply]
[d/l]
      @$ is just another array. It has no special meaning. (Except that use strict dosen't complain about it even if you don't declare it, and it's always in package main)
[reply]
[d/l]
        THX! So, what is $$ in this context, the PID?
[reply]

Back to Obfuscated Code