#!/usr/bin/perl

use strict;
use warnings;

my $fastaName = "example2.fasta";

open FASTA, $fastaName
  or die "cannot open $fastaName\n";

my $sequence = "";
my $sequencelength;

while ( my $line = <FASTA> ) {
    chomp($line);
    if ( substr( $line, 0, 1 ) eq ">" ) {
        if ( length($sequence) > 1 ) {

            #Calculate sequence lenght
            $sequencelength = length($sequence);

            print "Sequence length: $sequencelength";
            print "\n";
            
            $sequence = "";
        }
        print "$line\n";
    } else {
        $sequence .= $line;
    }
}

#Calculate sequence lenght for last sequence
$sequencelength = length($sequence);


#Print sequence lenght
print "Sequence length: $sequencelength";
print "\n";