Perl Bioinformatica

[frido]

Hola, tengo un problema con perl: tengo una lista de proteinas en formato fasta i tengo que borrar una parte del texto que no necesito.... concretamente tengo que borrar un trozo de texto que empieza por | y acaba en 1. Alguien me puede ayudar?
Tambíen tengo que añadir un trozo de texto (concretamente la palabra ID) delante de cada "letra+5números".
Gracias.

[flacc]

yo no se perl pero en python para saber el indice de de un caracter en una cadena uso cadena.indexof('caracter') y luego borro con cadena.del[inicio:fin de parte a eliminar], creo que era así xD...saludos