perl -wE"$s=pack 'U*', 257; say length $s; print for unpack 'C*', $s;"
1
257

##</code><code>##

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