>perl -MO=Concise script-concat.pl
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 4 script-concat.pl:7) v:*,&,{,x*,x&,x$
,$,201328640 ->3
5     <2> concat[t2] vKS/2 ->6
3        <0> padsv[$s1:4,5] sRM/LVINTRO ->4
4        <$> const[PV "Peter geht nach Hause geht"] s ->5
script-concat.pl syntax OK

>perl -MO=Concise script-assign.pl
e-variable-instantiation.pl
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 4 script-assign.pl:7) v:*,&,{,x*,x&,x$
,$,201328640 ->3
5     <2> sassign vKS/2 ->6
3        <$> const[PV "Peter geht nach Hause geht"] s ->4
4        <0> padsv[$s1:4,5] sRM*/LVINTRO ->5
script-assign.pl syntax OK