##
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