#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

## Abrimos el fichero y leemos todas las líneas GenBank
my $fichero_nombre = 'variicola.gen';
open FICHERO, "<$fichero_nombre" or die "ERROR: No encuentro $fichero_nombre: $!\n";

my $fichero;
while (my $linea = <FICHERO>) {
    $fichero .= $linea;
}

close FICHERO;

## Extraemos las partes de translation
while ( $fichero =~ m/ \/translation=" (.*?) " /simogx ) {
    my $translation =                  $1;

    ## Quitamos los espacios en blanco y retornos de carro
    $translation =~ s/\s//simog;

    print "[$translation]\n";
}