my @array = unpack "A4A2A2A2A2A2", $string;