$string = "123".\0.
          "1".\0.\0.\0.
          "23".\0.\0;

##</code><code>##

(undef, $value) = unpack("a$index A4", $string);

##</code><code>##

$value = substr($string, $index, 4);
$value =~ s/\0//g;