@list = unpack 'C*', $read;