Select Code to Download

$out = pack "A4", $string;

$out = unpack "A4", $string;

$out = substr $string, 0, 4;