# ...
my @output_cols = (0,1,2,5);        # Wunschfelder festlegen (1.-3. und 6.)
while (my $line = <$infile_fh>) {
    chomp $line;                     # Linefeed entfernen
    my @fields = split /;/, $line;
    for my $field (@fields) {
        if (length($field) > 30) {
            $field = substr($field, 0, 30);
        }
    }
    # Gewünschte Felder mit abschließendem Linefeed ausgeben
    print $outfile_fh join(';', @fields[@output_cols]) . "\n";
}