note
choroba
Use [doc://substr]:
<c>#!/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.";
}</c>
Note that Perl uses 0 for the starting position, not 1. If you really need 1, just output <c>$start + 1</c>.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1005077
1005077