use Devel::Peek;
use bytes;
$c = pack ("U", 0xfc);
print Dump($c);
print length($c);

##</code><code>##

SV = PV(0x15d559c) at 0x1a45848
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x15dd39c "\303\274"\0 [UTF8 "\x{fc}"]
  CUR = 2
  LEN = 3
2