foreach my $line (@rows) {
        $line =~ s/\t/\x09/ig;
        $line =~ s/\n/\x0A/ig;
        $line =~ s/\r/\x0D/ig;
        $line =~ s/"/'/ig;
        print FILE "\"$line\",";
        $cell++;
    }