my @splat = unpack '(A4)*', $thing;