@array= unpack "C*", $string;