Select Code to Download

$ perl -f -MO=Concise -e " my$f=[ 1, [ 2, [ 3 ] ] ]; my$g={ a => { b=>
+ { c=> {}, }, }, }; "
s  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
...
l                    <0> pushmark s ->m
q        <0> padsv[$g:2,3] sRM*/LVINTRO ->r
-e syntax OK