Select Code to Download

#!/usr/bin/perl
use strict;
...
                y => sub { doyloop(qr/\D/) },  # Just a fake parameter
        }
);

             Rate multiple   single        y
multiple  95932/s       --      -6%     -39%
single   101881/s       6%       --     -35%
y        156303/s      63%      53%       --