Select Code to Download

use strict;
use warnings 'all';
...
        Rate  sub  str
sub 282139/s   -- -28%
str 390155/s  38%   --

    my ($subcode, $subref);
    if (ref $c eq 'CODE') {
...
        $subcode = "sub { for (1 .. $n) { local \$_; package $pack; $c
+;} }";
        $subref  = _doeval($subcode);
    }

my $opts='-5 \\\\\\\\foo\\\\bar\\\\baz.exe';

my $opts=q!-5 '\\\\foo\\bar\\baz.exe'!;