Select Code to Download

perl -Mconstant=x,1 -MO=Deparse -e 'print x x x'
print '1' x '1';
-e syntax OK

perl  -MO=Deparse -e 'sub x {1} print x x x'
sub x {
...
}
print x(x(x()));
-e syntax OK