Select Code to Download

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

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

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