#!/usr/bin/perl -w

# Ejercicio 13. Trabajo con GenBank

# Abrir el fichero GenBank.gb para lectura

open (GEN, "GenBank.gb");

@todo = <GEN>;

# Dentro de las líneas del fichero buscamos una que tenga al comienzo la palabra ORIGIN,

# esta me da la separación entre la información que hay que guardar en ambos ficheros.

for ($i = 0; $i < scalar @todo; $i++) {

if ($todo[$i] ~= /^ORIGIN/) {

$linea_separacion = $i;

}

last;

}

};

close (PEPE);

# Salir del programa

exit;