$s = chr( 257 );;

print do{ use bytes; length $s, unpack 'C*', $s };;
2 196 129