C:\test>perl -MO=Concise,str 1046579.pl
main::str:
13 <1> leavesub[1 ref] K/REFC,1 ->(end)
-     <@> lineseq KP ->13
1        <;> nextstate(main 1250 1046579.pl:50) v:*,&,$ ->2
4        <2> sassign vKS/2 ->5
2           <$> const[IV 10000] s ->3
3           <0> padsv[$blocksize:1250,1258] sRM*/LVINTRO ->4
5        <;> nextstate(main 1252 1046579.pl:51) v:*,&,$ ->6
a        <2> sassign vKS/2 ->b
8           <1> length[t4] sK/1 ->9
7              <1> rv2sv sK/3 ->8
-                 <@> scope sK ->7
-                    <0> ex-nextstate v ->6
-                    <1> ex-aelem sK/2 ->-
-                       <1> ex-rv2av sKR/3 ->-
6                          <#> aelemfast[*_] s ->7
-                       <0> ex-const s ->-
9           <0> padsv[$lb:1252,1258] sRM*/LVINTRO ->a
b        <;> nextstate(main 1253 1046579.pl:52) v:*,&,{,$ ->c
e        <2> sassign vKS/2 ->f
c           <$> const[IV 0] s ->d
d           <0> padsv[$offset:1253,1258] sRM*/LVINTRO ->e
f        <;> nextstate(main 1257 1046579.pl:53) v:*,&,{,$ ->g
12       <2> leaveloop K/2 ->13
g           <{> enterloop(next->x last->12 redo->h) ->y
-           <1> null K/1 ->12
11             <|> and(other->h) K/1 ->12
10                <2> lt sK/2 ->11
y                    <0> padsv[$offset:1253,1258] s ->z
z                    <0> padsv[$lb:1252,1258] s ->10
-                 <@> lineseq sKP ->-
h                    <;> nextstate(main 1256 1046579.pl:55) v:*,&,$ ->i
s                    <@> substr[t10] vK/4 ->t
-                       <0> ex-pushmark s ->-
j                       <1> rv2sv sKM/3 ->k
-                          <@> scope sK ->j
-                             <0> ex-nextstate v ->i
-                             <1> ex-aelem sK/2 ->-
-                                <1> ex-rv2av sKR/3 ->-
i                                   <#> aelemfast[*_] s ->j
-                                <0> ex-const s ->-
k                       <0> padsv[$offset:1253,1258] s ->l
l                       <0> padsv[$blocksize:1250,1258] s ->m
r                       <1> complement[t9] sK ->s
q                          <@> substr[t8] sK/3 ->r
-                             <0> ex-pushmark s ->-
n                             <1> rv2sv sK/3 ->o
-                                <@> scope sK ->n
-                                   <0> ex-nextstate v ->m
-                                   <1> ex-aelem sK/2 ->-
-                                      <1> ex-rv2av sKR/3 ->-
m                                         <#> aelemfast[*_] s ->n
-                                      <0> ex-const s ->-
o                             <0> padsv[$offset:1253,1258] s ->p
p                             <0> padsv[$blocksize:1250,1258] s ->q
t                    <;> nextstate(main 1256 1046579.pl:56) v:*,&,$ ->u
w                    <2> add[t11] vKS/2 ->x
u                       <0> padsv[$offset:1253,1258] sRM ->v
v                       <0> padsv[$blocksize:1250,1258] s ->w
x                    <0> unstack s ->y
1046579.pl syntax OK