[FUGSPBR] [OFF-TOPIC] Split em perl

[saijo]

Salve galera!
Bom os meu problema e´ o seguinte:
Tenho um arquivo chamado "strings.txt" que possue a seguinte 
estrutura:
----------------------------------
original1|-|troca1
original2|-|troca2
....
originalN|-|trocaN

-----------------------------------

Ou seja possue um estrutura de palavras "originais" e "trocas" 
separadas 
por "|-|"

No meu script perl preciso abrir este arquivo e separar os "original" 
num array e o "troca" em outro array.

Tem como fazer isso???

Grato!!!!


Marcelo Fujiwara - marcelo.fujiwara em terra.com.br
http://linuxserver.linuxsecurity.com.br

_______________________________________________________________
Sair da Lista: http://www2.fugspbr.org/mailman/listinfo/fugspbr
Historico: http://www4.fugspbr.org/lista/html/FUG-BR/