#!/usr/local/bin/perl 

use IO::File;
use strict;
use warnings;

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

# Eingabedatei einlesen
my @zeilen = ();
open FILE, "<", $datei or die "konnte $datei nicht zum Lesen oeffnen. $!\n";
#close FILE;

while (my $zeile = <FILE>) {
    push @zeilen, $zeile;
}

foreach my $zeile (@zeilen)  {

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


print FILE $zeile , ': ' , " type: n ","\n"," genus: s ","\n";
close FILE;

}

;