my @splat = map $_ + 0, unpack '(A4)*', $thing;