sub decode_words
{
    my $value = shift || "";
    my $wd = default MIME::WordDecoder;
            
    eval "require Encode; $value = Encode::decode('MIME-Header', $value)";        

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

    $wd->handler("WINDOWS-1250" => "KEEP");
    $wd->handler("WINDOWS-1251" => "KEEP");
    $wd->handler("WINDOWS-1252" => "KEEP");
    $wd->handler("WINDOWS-1253" => "KEEP");
    $wd->handler("WINDOWS-1254" => "KEEP");
    $wd->handler("WINDOWS-1255" => "KEEP");
    $wd->handler("WINDOWS-1256" => "KEEP");
    $wd->handler("WINDOWS-1257" => "KEEP");
    $wd->handler("WINDOWS-1258" => "KEEP");    

    my $retval = $value ? $wd->decode($value) : "";
    
    $retval =~ s!\r\n!\n!g;
    $retval =~ s!\n[ \t]+!\n!g;
    $retval =~ s!\r?\n!!g;    

    return ("$retval" eq "1" ? $value : $retval);
}