while (my $line = <CSVFILE>) {
     $line =~ tr/"\r\n//d;