Select Code to Download

use utf8;
#use encoding 'utf8';
...

my $s2 = $s . "ö";   # implicit upgrade of $s
Dump $s2;

SV = PV(0x750b78) at 0x777c70
  REFCNT = 1
...
  PV = 0x787010 "\303\203\302\266\303\266"\0 [UTF8 "\x{c3}\x{b6}\x{f6}
+"]
  CUR = 6                                           ^^^^^^^^^^^^
  LEN = 8

SV = PV(0x750b78) at 0x777c88
  REFCNT = 1
...
  PV = 0x78fa30 "\303\266\303\266"\0 [UTF8 "\x{f6}\x{f6}"]
  CUR = 4                                   ^^^^^^
  LEN = 8