Select Code to Download

use strict;
use warnings;
...
sub foo { map /$str/, 1 .. 3 }

foo for 1 .. 2;

Compiling REx "foobar"
Final program:
...
Compiling REx "foobar"
Compiling REx "foobar"
Compiling REx "foobar"

use strict;
use warnings;
...
    }
);
cmpthese $r;

            Rate use_str1  use_str   use_qr
use_str1  3.65/s       --     -99%    -100%
use_str    436/s   11853%       --     -99%
use_qr   31592/s  865014%    7138%       --