$ perl -MO=Deparse,-p -e 'print (4-1) + 2+3 * (2*2);'
((print(3) + 2) + 12);