#!/usr/local/bin/perl 

use strict;
use warnings;

my $datei = 'word_types.prot';     # Eingabe Datei
my $file  = 'word_types.brain';    # Ausgabe Datei

# Eingabedatei einlesen
my @zeilen = ();

open my $FILE, "<", $datei
  or die "konnte $datei nicht zum Lesen oeffnen. $!\n";
while ( my $zeile = <$FILE> ) {
    chomp $zeile;                  # Zeilenende entfernen
    push @zeilen, $zeile;
}
close $FILE or die "konnte $datei nicht schliessen. $!\n";

# Eingelesenes nach Ausgabedatei
open $FILE, ">>", $file or die "konnte $file nicht zum Lesen oeffnen. $!\n";

foreach my $zeile (@zeilen) {
    print $FILE $zeile, ': ', "\n", 
		  " type: n " , "\n", 
		  " genus: s ", "\n";
}
close $FILE or die "konnte $file nicht schliessen. $!\n";