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