elsif ($_ =~ m/[a-zA-Z]/ || $csv_out[0 .. 10]){
                print "$_\n";
                $_=~ s/,/ /g;
                print WRITEFILE '"'."$_".'"' . "," ;