c:\@Work\Perl>perl -wMstrict -le "print $]; ;; my $s = 'ABCDEF'; ;; my @captures = $s =~ m{ (?= (.{3,})) }xmsg; printf qq{'$_' } for @captures; " 5.014004 'ABCDEF' 'BCDEF' 'CDEF' 'DEF'