use Text::CSV_XS;
my $csv = Text::CSV_XS->new(binary=>1);
...

##</code><code>##

$dbh->quote($some_string);
my $sql = "update some_table where some_attr = '$some_string'";