for ($str) {
   s/\\/\\\\/g;
   s/'/\\'/g;
   s/\(/['/g;
   s/\)/']/g;
   s/,/','/g;
}