#!/usr/bin/perl
use strict;
use warnings;

use open OUT => ':encoding(UTF-8)', ':std';
use warnings FATAL => 'utf8';

my $text = { string => "t\x{daed}\x{ffff}\x{daee}\x{c8}\n" };

1 until eval {
    print $text->{string};
    1;

} or do {
    my ($charcode) = $@ =~ /U\+(\S+)/ or die $@;
    print STDERR "Removing $charcode because of $@";
    $text->{string} =~ s/\x{$charcode}//g;
    0; # Try again!
};