use feature 'say';
binmode STDOUT, 'encoding(utf-8)';

my $str = "\xFC\x90\x80\x80\x80\x80";
my $ok = utf8::decode( $str );

say $ok ? 'ok' : 'not ok';
say $str;