$s = pack 'C*', 33 .. 126;;

print $s;;
!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~

$s =~ tr[\x20-\x7e][0000000000111111111122222222223];;

print $s;;
0000000001111111111222222222233333333333333333333333333333333333333333333333333333333333333333