sub find_substring
{
  my $input = shift;
  my $length = length $input;
  my $i = 0;
  while( 1 ) { 
    $i = index( $input,  substr( $input, 0, $i+1 ), $i+1);
    return $input if $i < 0;
    return substr( $input, 0, $i) if substr( $input, $i ) eq substr($input, 0, $length - $i); 
  }
}