$ perl -MO=Deparse -e'$x=1+2*3'
$x = 7;
$