Select Code to Download

  $string =~ /(.{$n}).*\1/;

  sub longestrepeat {
    my($string) = @_;
...
      return $n - 1 unless $string =~ /(.{$n}).*\1/;
    }
  }

  $string =~ /(.{$n}).*\1.*\1/;