@triplets = unpack ('(a3)*', $line);