$x = chr(400);
print 'Length: ', length $x, qq~\n~;
{ 
  use bytes;
  print 'Length (bytes): ', length $x, qq~\n~;
}