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