binmode STDOUT, ':encoding(utf-8)';

my $arg = "\x{10FFFF}"; # for instance

# simpler way?
$arg =~ s/\p{NChar}/\x{FFFD}/; # replacement char

print $arg, "\n";