use warnings;
use strict;
use Encode qw/decode/;
use Data::Dump qw/dd/;


dd decode('UTF-16-BE', "\x3D\xDD\xFA", Encode::FB_CROAK|Encode::LEAVE_SRC );
dd decode('UTF-16-BE', "\xFA",         Encode::FB_CROAK|Encode::LEAVE_SRC );

dd decode('UTF-16-LE', "\xD8\xFA\xDD", Encode::FB_CROAK|Encode::LEAVE_SRC );
dd decode('UTF-16-LE', "\xDD",         Encode::FB_CROAK|Encode::LEAVE_SRC);

__END__

"\x{3DDD}"
""
"\x{FAD8}"
""