36.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4
   5 $_ = '(('.join(')+(', <>).'))';
   6 s/\s//g;
   7 1 while
   8         s/\((\d+)\)/$1/ ||
   9         s/(\([^\(\)]*?)(\d+)\+(\d+)([^\(\)]*\))/$1.($2+$3).$4/e ||
  10         s/(\([^\(\)]*?)(\d+)\*(\d+)([^\(\)]*\))/$1.($2*$3).$4/e;
  11 print "sum=$_\n";