$a++   # débutant et/ou transfuge C++

$a+=1 # débutant et/ou transfuge C

$a=$a+1 # nihiliste suicidaire

$a = eval { $a + 1 } # tordu

$a = eval "$a+1" # pervers

$a =~ /^(\d+)$/$1+1/e

$a = ($a*$a-1)/($a-1) # remarquable

$A =~ s/^(.*)$/local($\)=1; join "", reverse map
	{((($\==0)&&($_))||($\=0)||($_!=9)&&(($_+1)))||(($\=1)&&(0))}
	reverse grep \/\d\/, split \/(\d)\/, "$1"/e # renversant

$A =((@S=("($A==$S[1])?($S[1]+1):(($S[1]++,eval($S[0]))[1])",0)),eval($S[0]))[1] # profond

do{s/^(\d+)/'\\'x$1.".\(${\(++$*)}."/e}
	while(s/\\(\\*.\.*\()(\d*)/$1.${\($*=$2*length$1)}/e) # boucle d'or

$A =~ s/(-)?(\d+(?:\.\d*)?)/$1.($2+($1?-1:1))/e # absolu

$A =~ s/(-)?(\d+(?:\.\d*)?)/"$1 1+"x$2.'1'/egoisme # no comment