Charset problems

Hello everyone.

 

I've got a problem with displaying information that I retrieve from Active 
Directory 2003. For example, "Cécile" is displayed "Cécile", and all the 
special characters like é, è, ê, à, etc. are badly displayed. So under 
ActivePerl 5.6.1, I do the following : 

 

sub unicode2latin1

{

            my $string = shift;

            

            use utf8;                                                           
 

            if ($string)

            {

                        $string =~ s/([\x{80}-\x{FFFF}])/'&#' . ord($1) . 
';'/gse;

            }

            no utf8;

            

            return $string;

}

 

And it works perfectly, but under the last version of perl (5.8.3), this code 
doesn't work ! Any idea ?

 

Robert-Alexandre Hollinger