C:\test>perl -MO=Concise,translate 1046579.pl
main::translate:
8  <1> leavesub[1 ref] K/REFC,1 ->(end)
-     <@> lineseq KP ->8
1        <;> nextstate(main 1267 (eval 7):1) v:*,&,{,$ ->2
-        <1> null KS/2 ->-
6           <1> rv2sv sKRM/3 ->7
-              <@> scope sK ->6
-                 <0> ex-nextstate v ->2
5                 <2> aelem sKM/DREFSV,2 ->6
3                    <1> rv2av sKR/3 ->4
2                       <#> gv[*_] s ->3
4                    <$> const[IV 0] s ->5
7           <"> trans sS/COMPL ->8
1046579.pl syntax OK