my $csv = Text::CSV_XS->new ({'always_quote' => 1,
                                 'eol'          => "\n",
                                 'binary'       => 1,
                                });
[download]

If you are determined to change the characters to entities, you could do it something like this:

$string=~s/[\x7f-\xff\&]/"&#".ord($1).";"/ge;
[download]