my @selected = grep {/r/} @array;