[~] $ perl -MO=Concise,-exec -e'print +(split//,shift)[$_[1]..$_[2]]'
1  <0> enter 
2  <;> nextstate(main 1 -e:1) v
3  <0> pushmark s
4  <0> pushmark s
5  <|> range(other->6)[t3] lK/1
6      <$> aelemfast(*_) s/2
7      <1> flop lK
           goto 8
i  <$> aelemfast(*_) s/1
j  <1> flip[t4] lK
8  <0> pushmark s
9  </> pushre(//) s
a  <$> gv(*ARGV) s
b  <1> rv2av[t1] sKRM/1
c  <1> shift sK/1
d  <$> const(IV 0) s
e  <@> split[t2] lK
f  <2> lslice lK/2
g  <@> print vK
h  <@> leave vKP/REFC