You can do it like this:

$ perl -wE 'say for unpack "(A4)*", "74657374"'
7465
7374
[download]

But maybe there's a shorter way to do what you want with pack and unpack. See perlpacktut for a gentler introduction.