@triplets = unpack ("a3" x (length($line)/3), $line);