{
   local $/ = "\n>";
   open(my $fh,'<',$fasta_file) or die $!;
   while(my $entry = <$fh>){
     chomp $entry;
     $entry = '>'.$entry unless(index($entry,'>') == 0);
     print "FASTA-Eintrag: $entry\n";
   }
   close $fh;
}