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'