Select Code to Download

sub find_substring
{
...
        return $possible if $input eq substr($possible x (1 + int($len
+gth / $i)), 0, $length); # success
    }
}

sub find_substring
{
...
    return substr( $input, 0, $i) if substr( $input, $i ) eq substr($i
+nput, 0, $length - $i); 
  }
}