foreach my $line (@lines){
    my @parts = split /\t/, $line;    # splittet alle tabulatorzeichen
    my $new_line = join ',', $parts[2], $parts[3], $parts[4], $parts[5];   # fügt alle teile mit einem komma wieder zusammen
}