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