$s = pack 'C*', 33 .. 126;; print $s;; !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ $x = join'', '0'x10, '1'x10, '2'x10, '3'x64;; eval qq[\$s =~ tr[\\x20-\\x7e][$x]];; print $s;; 0000000001111111111222222222233333333333333333333333333333333333333333333333333333333333333333