$ perl test.pl
1..3
ok 1 - s//x/ger
ok 2 - s//substr/ger
ok 3 - split/join
        Rate spljn s_ger subst
spljn 3330/s    --   -2%   -6%
s_ger 3405/s    2%    --   -4%
subst 3550/s    7%    4%    --