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