Your skill will accomplishwhat the force of many cannot PerlMonks

### The Lighter Side of Perl Culture (Part III): Obfu

by eyepopslikeamosquito (Chancellor)
 on Jan 23, 2005 at 06:15 UTC Need Help??

```\$A = eval q.@{[.."0,"x\$A.qq|0]}|
```
```1999/10/15 BooK    \$A = eval q.@{[.."0,"x\$A.qq|0]}|
1999/11/04 BooK    \$A =~ s/\$A/\$A+1/e
...
2000/04/13 stefp   use AI;
incrémente la variable scalaire a  de 1 unité
+#  \$a++
2000/04/13 stefp   \${"A\0comme quoi perl n'ignore pas partout les \0"}
+++
```
```\${~\$/&~\$;&\$^}++
```
```y ccccd x s vvchr oct oct ord uc ave x s vvucve le
s vvuc ave x s vvchr oct oct oct ord uc bve x eval
```
```#!/usr/bin/perl -l
s--@{[(gE^Ge)=~/[^g^e]/g]}[g^e]x((!!+~~g^e^g^e)<<pop).!gE-ge,
s-[^ge^ge]-s,,,,s,@{[(g^';').(e^'?')]},(G^'/').(E^'|')^Ge,ge,
print,s,(?<=/[^g^e])[^g^e][^g^e],\$&^(G^'/').(E^'|')^gE,ge-ge
```
```!\$A+++!q!+++A\$!
```
```%average::; print probably not my average \$A++
```
```sub _ : lvalue { \$A }; ++_();
```
```#!perl -lp
y/()^I /^I_/d+s@^I|(?<=\w)\D@(\$/="
...
*/\${":"x/\G[+-]/}]*)#\$2
#;\$+@eg;\$_.=\$/;y/
/ /s+chop
```

Create A New User
Node Status?
node history
Node Type: perlmeditation [id://424355]
Approved by rlb3
Front-paged by itub
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (7)
As of 2018-05-28 08:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
World peace can best be achieved by:

Results (199 votes). Check out past polls.

Notices?