Select Code to Download

#!/usr/bin/perl
use strict;
...
        'regex'           => sub {my @refnos; for (@data){push @refnos
+, /~([^~]+)~/;}},
    }
);

                  Rate    Full split Limited split Optimized split    
+     regex
Full split      23.3/s            --          -81%            -90%    
+      -91%
Limited split    120/s          413%            --            -51%    
+      -54%
Optimized split  244/s          946%          104%              --    
+       -7%
regex            262/s         1024%          119%              7%    
+        --