Question: Equivalent of Mathematica Cases function

I'm wondering if there is an equivalent implementation of the Mathematica Cases.

Usually, if I want to find all the occurrences of a specific pattern at any level in my expression I would use 
Cases[<expression>,<pattern>,Infinity]

For example, if I have 
expr = {sin[x]/(sin[2-x]+1)-12,sin[x/2]^2}
Then
Cases[expr,sin[_],Infinity]
will return 
{sin[x],sin[2-x],sin[x/2]}

Is there a way to achieve the same with Maple?

Please Wait...