$value = unpack "x$index Z4", $string;

##</code><code>##

$value = substr($string, $index, 4);
$value =~ y/\0//d;