use warnings;
use Text::CSV;
use Encode;

$file = './data/IDS.csv'; #Default
  
#Parsing CSV
my $csv = Text::CSV ->new ({binary =>1, eol => $/});
 
open (CSV, '<:encoding(utf8)', $file) or die "Cannot open $file: $!\n";
open (OUT, '>:encoding(utf8)', './data/IDs_created.txt') or die "Kann Datei nicht öffnen: $!\n";
 
 while (my $line = <CSV>) {
	chomp $line;
		if ($csv->parse($line)) {
		my @fields = $csv->fields ();
		chomp (@fields);
		print OUT "@fields\n";
		}
		else {
		warn "Line could not be parsed: $line\n";
		}
 }
print "CSV parsed and saved as text file: IDs_created.txt!";
close CSV;
close OUT;