Select Code to Download

sub windex {
    my ($s1, $s2) = @_;
    my $pos = -1;
...
    }
    return $s1;
}

          Rate  split1 substr1   index
split1  4.32/s      --    -84%   -100%
substr1 27.7/s    541%      --    -99%
index   3757/s  86900%  13478%      --