Eu queria abrir um documento e fazer com que ele retornasse para mim o último número de uma linha que contem `'>'` como referência. Isso de todas as linhas que tenham esse `'>'`.  
ou que ele lesse a quantidade de `'>'` que existissem no arquivo e me retornasse na forma de que eu pudesse colocar cada número desse (1, 2, 3..) em uma variável.

O dado aparece dessa forma:

>'>'VE05.fasta.screen.Contig1
TTTTGTTTTTTTTTTTTTTTTTTTTATTTAATTTTTTTCTTTGGGGGGGG
GGAAAATTTTTTTTTCCCTCCCTTCTACAACACAAGAAAAAAAAACTTCC
'>'VE05.fasta.screen.Contig2
TTTTGTTTTTTTTTTTTTTTTTTTTATTTAATTTTTTTCTTTGGGGGGGG
GGAAAATTTTTTTTTCCCTCCCTTCTACAACACAA

Eu fiz esse código, mas sei que está incompleto.

    open (my @number, '<', @n);

	@number = chop (); 

	print "Contig's final number:@num";

	close @n;