sub repeat_finder_re {
  my $n = shift;
  '(\w{2,})(?=' . ('.*\\1'x($n-1)) . ')'
}