##
$ perl -MO=Deparse -e '$i=6;$j=2;print 3*4*$i*$j*3*4'
$i = 6;
$j = 2;
print 12 * $i * $j * 3 * 4;
-e syntax OK
##
##
$ perl -MO=Deparse,-p -e '$i=6;$j=2;print 3*4*$i*$j*3*4'
($i = 6);
($j = 2);
print(((((12 * $i) * $j) * 3) * 4));
-e syntax OK