Select Code to Download

    any_fold => sub {
        while ( $data =~ /^(\d+) (\d+)/mg ) {
...
        }
        return 1
    },

any_cr       461/s        --        -13%      -58%      -62%      -68%
+      -76%
any_cr_fold  527/s       14%          --      -52%      -57%      -63%
+      -72%
...
any_fold    1221/s      165%        132%       12%        --      -15%
+      -36%
ugly        1436/s      212%        172%       32%       18%        --
+      -25%
ugly_cr     1914/s      315%        263%       76%       57%       33%
+        --

no warnings "experimental::keyword_any";
use experimental 'keyword_any';

              Rate       any  any_fold    any_cr      ugly any_cr_fold
+   ugly_cr
any         1037/s        --      -10%      -20%      -26%        -31%
+      -46%
...
ugly        1399/s       35%       21%        8%        --         -7%
+      -27%
any_cr_fold 1506/s       45%       31%       16%        8%          --
+      -21%
ugly_cr     1914/s       85%       66%       48%       37%         27%
+        --