$out = pack "A4", $string;

##</code><code>##

$out = unpack "A4", $string;

##</code><code>##

$out = substr $string, 0, 4;