247.~/perl/tmp > a.pl
7
9
eval $expr = 9