sub bowl {
  ($_,$n)=@_;                                      # 11

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

  s#./|X#9#g+map{(1)x$_}/./g                       # 26
}
#                                                   ___
#                                                    84