If you are using Spreadsheet::WriteExcel, you can use its functionality directly:

  use Spreadsheet::WriteExcel;
  use HTML::Entities;
  use Encode qw( from_to );

  from_to (decode_entities ($value), "utf-8", "ucs2");
  $wks->write_unicode ($column, $row, $value);
[download]