Select Code to Download

perl -MO=Deparse -e 'print $n[inf]'

print $n[9**9**9];

perl -MO=Deparse -e 'print $n["inf"]'

perl -MO=Deparse -e 'print $n[-inf]'

print $n[-'inf'];

perl -MO=Deparse -e 'print "", inf==0 ? "a" : "b", 'inf'==0 ? "c" : "d
+", -inf==0 ? "e" : "f"'

print '', 'inf' == 0 ? 'a' : 'b', 'inf' == 0 ? 'c' : 'd', -'inf' == 0 
+? 'e' : 'f';

perl -MO=Deparse -e '$n[inf], $n[1+inf], $n[-inf] = inf'

$n[9**9**9], $n[1 + 'inf'], $n[-'inf'] = 'inf';

This is perl, v5.8.8 built for i486-linux-gnu-thread-multi