Eu estou aprendendo perl e estou com umas duvidas.

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 variavel.

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.

Obrigada.
 


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

	@number = chop (); 

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

	close @n;