#!/usr/bin/perl

$file = $ARGV[0];

open(FASTA, $file) ||die "Arquivo inicial não encontrado!";

$size = 0;

while ($lines = <FASTA>) {
  @l = split /\n/, $lines;
  if ($lines =~ />gi/) {
      if ($size > 0) {
         print "Sequências: ", $v[1], ", ", $nome[0],
               " - Tamanho: ", $size, " \n";
         $size = 0;
     };
     @v = split /\|/, $l[0];
     @nome = split /\n/, $v[4];
  } else {
      $size = $size + length($l[0]);
  };
}
print "Sequências: ", $v[1], ", ", $nome[0],
      " - Tamanho: ", $size, " \n";