#!/usr/bin/perl

use strict;
use warnings;

my $file = 'eingabedatei.fasta';

{
   local $/ = "\n>";
   open(my $fh,"<",$file) or die $!;
   while(my $entry = <$fh>){
     chomp $entry;
     next if($entry =~ /^\s*$/);
     my ($header,$seq) = split(/\n/,$entry,2);
     $seq =~ s/[\n\s]//gs;
     print "header: $header\n";
     $seq =~ s/([A-Z]{70})/$1\n/gs;
     print "Sequenz: $seq\n";
   }
   close $fh;
}