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

##</code><code>##

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