$triplets{$_} = [unpack("x$_ (a3)*", $line)];