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