#!perl -lp
s/\*/)*(/g;$_=eval"($_)"