perl -MO=Deparse,-p -lwe '$x = 5+3*4'