( $text= $binary ) =~ s#([^ -~])#
        sprintf "\\x%02.2x",unpack("C",$1) #ge;
    print "$text\n";