$out = pack "A4", $string;