Как я могу поймать предупреждение «Несимвольный Unicode»?

Как я мог поймать предупреждение "Несимвольный код Юникода 0xffff запрещен для обмена"?

#!/usr/bin/env perl
use warnings;
use 5.012;
use Try::Tiny;

use warnings FATAL => qw(all);

my $character;

try {
    $character = "\x{ffff}";
} catch {
    die "---------- caught error ----------\n";
};

say "something";

Вывод:

# Unicode non-character 0xffff is illegal for interchange at ./perl1.pl line 11.