print unpack 'S', pack 'S', 65537;; 1 print unpack 'L', pack 'L', 2**32+1;; 1 print unpack 'Q', pack 'Q', 2**64+1;; 18446744073709551615 #### print unpack 'C', pack 'C', 2**8+1;; Character in 'C' format wrapped in pack at (eval 17) line 1, line 9. 1 #### $s = chr( 257 );; print do{ use bytes; length $s, unpack 'C*', $s };; 2 196 129 #### print $s, length $s;; Wide character in print at (eval 19) line 1, line 11. ─ü 1