#!/usr/bin/perl
use warnings;
use strict;
use feature 'say';

my $string = 'ABCDEFGH';
my $length = 4;
for my $start (0 .. length($string) - $length) {
    say substr($string, $start, $length), " -> Starting at position $start.";
}