obfuscated
liverpole
When writing Perl code, it's always fun to use some of the undocumented operators.
<p>The good ol' <c>+-</c> operator always comes in handy. My personal favorite is the ever-reliable <c>'=</c> operator. And what obfuscation would be complete without a terminal <c>/+</c> operator?
</p><p>Can you find any other undocumented operators below?
<c>
@ == "GqwpWrlplbnTbnpDwghav"=~ /.../g;
@ +- map { +map++ $_,@ =} +$ = ... 3**7;
@ '= split /(?=[A-Q])/, join $* ,@ =;
die + qq + @'$ /+
</c>
</p><p>The inspiration for the technique used came indirectly from [node://585235|this node] by [blazar].
</p><p><b>Update</b>: Fixed wording, as pointed out by [jdporter].
<div class="pmsig"><div class="pmsig-465654">
<hr />
<font size="1">
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
</font>
</div></div>