print $string; ##

##

    print map {chr} @array;

##

##

    print pack "C*", @array;

##

##

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

##

##

    @array = ;

##

##

    @array= unpack "C*", do { local($/);  };