Select Code to Download

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

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

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