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

##</code><code>##

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