@subset = grep {s/x/y/} @set;