$ perl -MDevel::Peek -e'$_="\x{00C9}ric"; Dump($_);'
  FLAGS = (POK,pPOK)
  PV = 0x826d060 "\311ric"\0      # Text (My name)

$ perl -MDevel::Peek -e'$_=pack("N", 0xC9726963); Dump($_);'
  FLAGS = (POK,pPOK)
  PV = 0xa16b2d8 "\311ric"\0      # Binary

##</code><code>##

my $is_utf8 = eval {
   decode('UTF-8', $bytes, Encode::FB_CROAK|Encode::LEAVE_SRC);
   1
};

##</code><code>##

$ perl -MDevel::Peek -e'$_="ABCD"; Dump($_);'
  FLAGS = (POK,pPOK)
  PV = 0x81bb060 "ABCD"\0         # Text

$ perl -MDevel::Peek -e'$_=pack("N", 0x41424344); Dump($_);'
  FLAGS = (POK,pPOK)
  PV = 0x9e0a2c8 "ABCD"\0         # Binary