print pack 'u*', $binstring;