Select Code to Download

$ cat test.pl
use 5.18.0;
...
say "tr/x/: |", trx  (), "|";

cmpthese (-2, { splt => \&splt, rgx => \&rgx, trx => \&trx });

$ perl test.pl
sourc: |    abc    abc    abc    abc    abc    |
...
rgx  1047602/s   -- -59% -65%
trx  2553722/s 144%   -- -14%
splt 2958598/s 182%  16%   --

$ cat test.pl
use 5.18.0;
...
say "tr/x/: |", trx  (), "|";

cmpthese (-2, { splt => \&splt, rgx => \&rgx, trx => \&trx });

$ perl test.pl
sourc: |    abc    abc    abc    abc    abc    |
...
rgx  1012851/s   -- -42% -52%
splt 1739341/s  72%   -- -17%
trx  2105282/s 108%  21%   --