Select Code to Download

Select or download this
```
$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"}
+++

Select or download this
```
${~$/&~$;&$^}++
```

Select or download this

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

Select or download this

#!/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

Select or download this
```
!$A+++!q!+++A$!
```

Select or download this

%average::; print probably not my average $A++

Select or download this
```
sub _ : lvalue { $A }; ++_();
```

Select or download this

#!perl -lp
y/()^I /^I_/d+s@^I|(?<=\w)\D@($/="
...
*/${":"x/\G[+-]/}]*)#$2
#;$+@eg;$_.=$/;y/
/ /s+chop