my($ok) = grep {/Some String/} @anArray;