Undocumented Operator Japh

When writing Perl code, it's always fun to use some of the undocumented operators.

The good ol' +- operator always comes in handy. My personal favorite is the ever-reliable '= operator. And what obfuscation would be complete without a terminal /+ operator?

Can you find any other undocumented operators below?

  @ == "GqwpWrlplbnTbnpDwghav"=~  /.../g;
  @ +-  map { +map++ $_,@ =} +$ =  ... 3**7;
  @ '=  split /(?=[A-Q])/, join $* ,@ =;
 die +  qq + @'$ /+
[download]

The inspiration for the technique used came indirectly from this node by blazar.

Update: Fixed wording, as pointed out by jdporter.

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Back to Obfuscated Code