my @a = unpack '(A3)*', $kette