Select Code to Download

use warnings;
use strict;
...
    rx_50 => sub { differ_at_rx($s__, $s50) },
    rx_90 => sub { differ_at_rx($s__, $s90) },
    });

C:\@Work\Perl\monks\745091>perl 745091_1.pl
multiplier == 1000
...
up_50 6.57/s  221%   72%   13%    --   -3%  -60%
up_10 6.76/s  230%   76%   16%    3%    --  -59%
rx_10 16.5/s  709%  332%  185%  152%  145%    --