Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
for my $start (0 .. length($string) - $length) {
    say substr($string, $start, $length), " -> Starting at position $s
+tart.";
}