Select Code to Download

int indexNth( SV *haystack, SV*needle, int nth ) {
    STRLEN lh, ln, i, j;
...
    return -1;
}

C:\test>1039228.pl
        Rate  regex    buk    cpp      c
...
buk    137/s  3277%     --   -75%   -85%
cpp    546/s 13345%   298%     --   -40%
c      915/s 22446%   568%    68%     --

sub c {
  my $copy = $main::string;
...
  return \$copy;
}