% perl -wle 'print ord do { use bytes; chr(1000) }'
232
% perl -wle 'print ord do { use bytes; chr(232)  }'
232
% perl -wle 'print ord do { no  bytes; chr(1000) }'
1000