把大圖裡面的漢字分割成每一個小圖？

(*要分割的圖片地址，可以是網路也可以是本地*)
img = Import["https://pic1.zhimg.com/f9218531b3b271a68ab9dfe358a6d7e0_b.png"];
mat = ImageData@img;
dat = ImageData@Binarize@img;
Outer[Image@mat[[##]] ,
Sequence @@ (Span @@@
Partition[
Flatten@Position[#, {1 ..}] // Split[#, #1 + 1 == #2 ] //
Mean /@ # // Round // Flatten[{1, #, -1}] , 2,
1] /@ {dat, dat[Transpose]})]


代碼是Mathematica的，MATLAB同理

(*話說剛在Mathematica吧看到了完全相同的問題，所以這其實是某暑期課作業吧*)