Select Code to Download

use warnings;
use strict;
...

is $str, "Ren\xE9 \x{1F606}\x{E01EF} Fran\xE7oise \\\\u2660\\U1234",
    $str or diag pp $str;