Select Code to Download

+------+-----------+--------------------+
| id   | title     | comments           |
...
+------+-----------+--------------------+
| 7388 | Star Wars | "I'm your father!" |
+------+-----------+--------------------+

[{"id":2911,"title":"Rush Hour","comments":"Fun :-)"}
,{"id":3217,"title":"Titanic","comments":"Drama, too long"}
,{"id":6518,"title":"Bambi"}
,{"id":7388,"title":"Star Wars","comments":"\"I'm your father!\""}
]

use JSON;
use Data::Dumper;
...
print Dumper $data;
__DATA__
[{"id":2911,"title":"Rush Hour","comments":"Fun :-)"},{"id":3217,"titl
+e":"Titanic","comments":"Drama, too long"},{"id":6518,"title":"Bambi"
+},{"id":7388,"title":"Star Wars","comments":"\"I'm your father!\""}]

$VAR1 = [
          {
...
            'comments' => '"I\'m your father!"'
          }
        ];