Select Code to Download

$ perl -MList::Util=reduce -MO=Concise,-exec -e'reduce { "..." } @a'
...
...
9  <#> gv[*reduce] s
a  <1> entersub[t5] vKS/TARG,AMPER,1
...