MatrixCase as a new function ??

Questions
1

Mathematica has excellent ways to manipulate Sequences.
But it has no such methods for dealing with arrays

a = RandomInteger[10, {4, 4}];

ReplaceList[a, {___, {e___, x_, y_, ___}, {e1___, x1_, 
     y1_, ___}, ___} /; Length[{e}] == Length[{e1}] -> 
  MatrixForm[{{x, y}, {x1, y1}}]]

Can we simply have a function like this

MatrixCases[Matrix, {{_, _}, {_, _}}]

General rule. that give us the same result or extract all patterns from the array.