#!/usr/bin/perl

use strict;

open(LENGTH,"<honey_est.fa");

$/ = '>';



while(<LENGTH>){

    chomp;

    my @lines = split;

    my $id = $lines[0];

    my $sequence;
    my $j=1;
    while ($lines[$j]){
        $sequence = $sequence.$lines[$j];
        $j = $j + 1;
    }



    print "$id ",length($sequence),"\n";
    
}

$/ = "\n";