$ perl -E 'sub W { grep { say "x"; return "z" } 1; say "y" } say W'
x
z