C:\test>perl -le"print eval while<>;"
2+2
4
3*5
15
$a=3**2+4
13
$a/2
6.5
(1+(2*3)+4)/($a%3)
11
^Z

C:\test>