#!/usr/bin/perl -w
use strict;
use warnings;

open (my $IN, '<', "quote1.csv") or die "cannot open file1 $!\n";

open (my $OUT, '>', "quoteremoved.csv") or die "cannot open file3 $!\n";

while (my $line=<$IN>)
{
    $line =~ tr/"//d;    #delete all "
    
    print $OUT $line;  
}