my @new = grep /(BRIN|SAGEF403)+?/g, @array;