Select Code to Download

#!/usr/bin/perl

...
      while /(\w)(?=((?:.{$gap}\1){$reps,}))/gs;
    }
  }

aabac
aaacf
...
diagonal 2 'a' at 1 0
diagonal 3 'c' at 2 2
diagonal 2 'c' at 3 3