#!/usr/bin/perl

use warnings;
use strict;

my $string = '1,2,3,4,"fine","day","today"';

print "\$string = [ $string ]\n";
print "\n";

$string =~ s/\"//gx;
    
print "\$string = [ $string ]\n";
   
exit(0);