push @a, [ unpack "CCSS", substr($data, $_ * 6, 6) ]
	for 0..(length($data) / 6 - 1);