Buenas.
Estoy tratando de cortar una secuencia por la mitad y que ambas mitades me la guarde cada una en una variable distinta.
Para ellos he probado con la variable chop() pero no consigo guardar ambas mitades.
El caso es que meto variables pero no consigo el fin.
#!/usr/bin/perl
my $secuencia = 'AAATTTGGGTGTAATTGGGCCCGT';
my $secuencia =~ s/\s//g;
my $longitud = length($secuencia);
my $long = $longitud/2;
print "La longitud de la cadena es $longitud y el ...