my @b = grep { s/apples/oranges/ } @a;