if($exp =~ /^[-+/*%()\s\d]+$/) {
  print eval $exp;
}