my $人 = "World";
    say "Hello, $人";

##</code><code>##

    my $&#1F310; = "World";
    say "Hello, $&#1F310;";

##</code><code>##

    Unrecognized character \x{1f310}; marked by <-- HERE after my $<-- HERE near column 5 at 1123740.pl line 9.