Select Code to Download

$ perl -MO=Concise -e'grep { f() } $x..$y;'
c  <@> leave[1 ref] vKP/REFC ->(end)
...
-                       <1> ex-rv2sv sK/1 ->6
5                          <#> gvsv[*y] s ->6
-e syntax OK

$ perl -MO=Concise -e'1 for $x..$y;'
...
...
...                                               ^
                                                  |
                                     Not Stacked: Is a foreach loop