Select Code to Download

$ perl -MO=Concise -e'pop @a'
6  <@> leave[1 ref] vKP/REFC ->(end)
...
4        <1> rv2av[t2] lKRM/1 ->5       <-- "l"ist context.
3           <#> gv[*a] s ->4
-e syntax OK