my $str = "Jan\x{00E1}\x{010D}ek, Leo\x{0161}";