Help for this page
$ perl -wE 'my $x = qq{abcd\nefgh\nijkl}; say ">$x<"; say ">$1<" while + $x =~ /(.{3})/gs' >abcd ... >fgh< > ij<