my $value = "1234";
$value = (unpack "AA*", $value)[1];
print $value, "\n";