use MIME::WordDecoder;

sub decode_words
{
   my $value = shift;
   my $wd = default MIME::WordDecoder;

   $wd->handler("WINDOWS-1251" => "KEEP");
   $wd->handler("BIG5" => "KEEP");

   return ($value ? $wd->decode($value) : "");
}