Select Code to Download

#!/usr/bin/perl
use warnings;
...
    regex => sub { regex_pos($s) },
    tr    => sub { tr_pos($s)    },
});

          Rate regex    tr
regex 316530/s    --  -67%
tr    954355/s  202%    --

          Rate regex    tr
regex 896519/s    --   -6%
tr    954359/s    6%    --