Select Code to Download

for (0..($strLen-1))

for ( 0..$strLen/2 )

for (0..($strLen - 1))
  {
...
  return wantarray  ? ($cycleLen, substr $str, 0, $cycleLen)
                    : $cycleLen if $+[0] == $strLen;
  }

for ( 1..$strLen/2 )
  {
...
  return wantarray  ? ($_, substr $str, 0, $_) : $_
    if $copy eq $str;
  }