[0] Perl> print $1 while 'abcdefgh' =~ m[(?=(.{4}))]g;; abcd bcde cdef defg efgh