Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...

print join "\n", grep {/^(.)\1+$/i}
    map {substr $str, $_, $N} 0 .. length ($str) - $N;

Select or download this
```
aa
aA
...
bB
AA
Aa
```