sub bowl {
  $_=pop;                                          #  7

  $a=()=/\d\d\B/g;                                 # 16

  s#(?=./(.)|X(..))#$a++<9&&($2||$1)#ge;           # 38

  s#./|X#55#g;                                     # 12
  s/\B/+/g;                                        #  9
  eval                                             #  4
}
#                                                   ___
#                                                    86