PERL search string file

[diokhan 1]

Boas,

eu tenho agora um problema, preciso com o PERL ler um ficheiro e dividir uma linha em varias variáveis.

vou explicar melhor, eu tenho esta linha:

> pr_1 | mussel_c1679 | 11

e preciso que com o PERL faça uma pesquisa dentro do ficheiro e procure o "|" e guarde numa variável o "mussel_c1679" e noutra variável o "11"

alguém pode dar-me umas luzes de como o fazer?

desde já agradeço a ajuda

[joze_n 0]

devo vir tarde 

mas o que queres deve ser algo deste tipo

while(<>){
($var1, $var2,$var3)=split /\|/;
}

ps: nao consigo testar onde estou, mas acho que funciona