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
...
rx_90 2.05/s  100%   96%   78%    --  -45%  -88%
rx_50 3.76/s  267%  260%  226%   83%    --  -77%
rx_10 16.6/s 1513% 1483% 1334%  707%  340%    --