#!/usr/bin/perl
use warnings;
use strict;

open A, '<Partnerliste_05_13.csv' or die $!;
open B, '>neu.csv' or die $!;
while (<A>) {

   s/Versicherungsmakler/Vers.-Makler/i;
   s/Versicherungs-/Vers.-/i;
   s/Versicherungs/Vers.-/i;
   s/Versicherungen/Vers./i;
   s/Versicherung/Vers./i;
   s/unabhängiger/unabh./i;
   s/unabhängige/unabh./i;
   s/unabhängig/unabh./i;
   s/Unabhängiger/unabh./i;
   s/Unabhängige/unabh./i;
   s/Unabhängig/unabh./i;
   s/Geschäftsstelle/GSt./i;
   s/(haftungsbeschränkt)//i;
   s/haftungsbeschränkt//i;


   print B;
}
close A;
close B;

#Ende Teil 1

my $infile = 'neu.csv';
open (my $infile_fh, '<', $infile) or die "Kann $infile nicht lesen\n";

my $outfile = 'neu2.csv';
open (my $outfile_fh, '>', $outfile) or die "Kann $outfile nicht schreiben\n";

my @output_cols = (1,2,3,4,5);
while (my $line = <$infile_fh>) {
    chomp $line;
    my @fields = split /;/, $line;
    for my $field (@fields) {
        if (length($field) > 30) {
            $field = substr($field, 0, 30);
		}
    }
    print $outfile_fh join(';', @fields[@output_cols]) . "\n";
}

#Ende Teil 2

open C, '<neu2.csv' or die $!;
open D, '>endprodukt.csv' or die $!;
while (<C>) {
   #GmbH soll bleiben, Gmb/Gm/G soll gelöscht werden
   print D 
}
close C;
close D;

#Ende Teil 3