Looking at the source (utf8.c)

Come on. perluniprops.

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

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

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

print $arg, "\n";
[download]