$string = decode_utf8 encode_utf8 $string;

##</code><code>##

utf8::upgrade $string;

##</code><code>##

Panic Button
SV = PV(0x8154b00) at 0x8153c28
  REFCNT = 2
  FLAGS = (POK,pPOK)
  PV = 0x816ffd8 "Panic Button"\0
  CUR = 12
  LEN = 16
SV = PV(0x8154b00) at 0x8153c28
  REFCNT = 2
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x816ffd8 "Panic Button"\0 [UTF8 "Panic Button"]
  CUR = 12
  LEN = 16

Bot\U00F3n de P\U00E1nico
SV = PVMG(0x81a8af0) at 0x8153d48
  REFCNT = 2
  FLAGS = (SMG,POK,pPOK)
  IV = 0
  NV = 0
  PV = 0x820ad90 "Bot\363n de P\341nico"\0
  CUR = 15
  LEN = 16
  MAGIC = 0x820fb98
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1
SV = PVMG(0x81a8af0) at 0x8153d48
  REFCNT = 2
  FLAGS = (SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x81c5ee8 "Bot\303\263n de P\303\241nico"\0 [UTF8 "Bot\x{f3}n de P\x{e1}nico"]
  CUR = 17
  LEN = 18
  MAGIC = 0x81b1d50
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = 15
  MAGIC = 0x820fb98
    MG_VIRTUAL = &PL_vtbl_mglob
    MG_TYPE = PERL_MAGIC_regex_global(g)
    MG_LEN = -1