my ($first, $second, $junk, $third) = unpack "A2A4A4A4", $line;