c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'ABCDEF';
 ;;
 my @triplets = $s =~ m{ (?= (...)) }xmsg;
 printf qq{'$_'  } for @triplets;
"
'ABC'  'BCD'  'CDE'  'DEF'