Select Code to Download

[~] $ perl -MO=Concise -e'print +(split//,shift)[$_[1]..$_[2]]'
h  <@> leave vKP/REFC ->(end)
1     <0> enter ->2
...
b                    <1> rv2av[t1] sKRM/1 ->c
a                       <$> gv(*ARGV) s ->b
d                 <$> const(IV 0) s ->e

[~] $ perl -MO=Concise,-exec -e'print +(split//,shift)[$_[1]..$_[2]]'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v
...
f  <2> lslice lK/2
g  <@> print vK
h  <@> leave vKP/REFC