$out = unpack "A4", $string;