$x = unpack 's', pack 'n', $x;