$ 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