Select Code to Download

for my $i (0..$N-1) {
   for my $j ($i..$N-1) {
...
      }
   }
}

for my $i (0..$N-1) {
   my $substr = substr($s, $i);
...
      ...
   }
}

use strict;
use warnings;
...
      print( "\n" );
   }
}

penisland
---------
...
n_substrs: [[1,2],[1],[],[3],[2],[1]]
[x] ape [nx]
[xa] pen [x]