36.pl

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