my $Map= new Unicode::Map("CP1250");
$buff= $Map->from_unicode(  Unicode::Transform::unicode_to_utf16be(  $buff )
 );