Hola:
Estoy intentando renombrar los archivos de una carpeta. Cada archivo tiene las iniciales de una persona en los primeros dos caracteres y el nombre de un gen en los siguientes (ejemplo: "DA PDK4.afa"), y los archivos tienen diferentes extensiones. Sólo quiero renombrarlos para que el nombre del gen aparezca primero y después el de las iniciales de la persona.
Éste es mi código:
#!/usr/bin/perl -w
use strict;
use Getopt::Long;
my $archivos;
my @file; ...