% perl -MO=Concise
my $s=<>;
my $t="$s";
b  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -:1) v ->3
-     <1> null vKS/2 ->6
3        <0> padsv[$s:1,3] sRM*/LVINTRO ->4
5        <1> readline[t3] sKS/1 ->6
4           <#> gv[*ARGV] s ->5
6     <;> nextstate(main 2 -:2) v ->7
a     <2> sassign vKS/2 ->b
8        <@> stringify[t5] sK/1 ->9
-           <0> ex-pushmark s ->7
7           <0> padsv[$s:1,3] s ->8
9        <0> padsv[$t:2,3] sRM*/LVINTRO ->a