Select Code to Download

#!perl

...
);

exit(0);

Benchmark: timing 1000000 iterations of Method One, Method Two...
Method One:  4 wallclock secs ( 4.13 usr +  0.00 sys =  4.13 CPU) @ 24
+2424.24/s (n=1000000)
Method Two:  5 wallclock secs ( 4.39 usr +  0.00 sys =  4.39 CPU) @ 22
+7738.56/s (n=1000000)

>perl -MO=Concise script-concat.pl
6  <@> leave[1 ref] vKP/REFC ->(end)
...
3        <$> const[PV "Peter geht nach Hause geht"] s ->4
4        <0> padsv[$s1:4,5] sRM*/LVINTRO ->5
script-assign.pl syntax OK