$str = '0123456789abcdef';;

print for unpack '(a4X3)' . (length($str)-3), $str;;
0123
1234
2345
3456
4567
5678
6789
789a
89ab
9abc
abcd
bcde
cdef