>perl -Mbytes -wE"$s=pack 'U*', 257; say length $s; say for unpack 'C*', $s;"
2
196
129