Small first strict obfuscation

[NearO]

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 $;;

[idnopheq]

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

[MrNobo1024]

@$ 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)

[idnopheq]

THX! So, what is $$ in this context, the PID?