Select Code to Download

#!/usr/bin/perl -w
use strict;
...
<\">
<'"'>

my $hexstr = "0x" . unpack("H*", $barestr);
$dbh->do(qq{insert into test_chars values( $hexstr )});
# notice that the hexstring has NO QUOTES

mysql>  select * from test_chars;
+-------+
...
| '"'   |
+-------+
9 rows in set (0.00 sec)

#
# Dumping data for table 'test_chars'
...
INSERT INTO test_chars VALUES ('\"');
INSERT INTO test_chars VALUES ('\\\"');
INSERT INTO test_chars VALUES ('\'\"\'');

 _  _ _  _  
(_|| | |(_|><
 _|