Win8 Strawberry 5.8.9.5 (32)  Wed 11/11/2020 18:02:18
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings -l
my $s = 'ABCDE';

while ($s =~ m{ (?= (\w+)) }xmsg) { print $1; };

^Z
ABCDE
BCDE
CDE
DE
E

##</code><code>##

Win8 Strawberry 5.8.9.5 (32)  Wed 11/11/2020 21:41:12
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings -l
my $s = 'ABCDE X YZ FGHI';

while ($s =~ m{ (?= (\w{3})) }xmsg) { print "'$1'"; };

^Z
'ABC'
'BCD'
'CDE'
'FGH'
'GHI'