perl -MO=Deparse,-p -lwe '$x = $a+$b*$c'