Select Code to Download

$ perl -MO=Concise,-exec -e'join($s, $x, $y, $z)'
1  <0> enter
...
8  <@> join[t5] vK/2
9  <@> leave[1 ref] vKP/REFC
-e syntax OK