$ cat pm1208450.pl use strict; use warnings; use Devel::Peek; my $a = chr(0xb0); my $b = chr(0x2032); Dump($a); Dump($b); # Combining a byte string and a unicode string converts to unicode my $c = $a . $b; Dump($c); $ perl pm1208450.pl SV = PV(0x60002c270) at 0x600079168 REFCNT = 1 FLAGS = (POK,pPOK) PV = 0x600069e70 "\260"\0 CUR = 1 LEN = 10 SV = PV(0x60002c310) at 0x600079048 REFCNT = 1 FLAGS = (POK,pPOK,UTF8) PV = 0x60008f670 "\342\200\262"\0 [UTF8 "\x{2032}"] CUR = 3 LEN = 10 SV = PV(0x60002c340) at 0x6000ed1c8 REFCNT = 1 FLAGS = (POK,pPOK,UTF8) PV = 0x600093a10 "\302\260\342\200\262"\0 [UTF8 "\x{b0}\x{2032}"] CUR = 5 LEN = 10