Select Code to Download

use 5.018003;
use warnings;
...
    subst => \&substr_ger,
    spljn => \&split_join,
    });

$ perl test.pl
1..3
...
spljn 3330/s    --   -2%   -6%
s_ger 3405/s    2%    --   -4%
subst 3550/s    7%    4%    --