use strict; ######### my $archivo; #dirección del archivos pdf "C:/directorio/directorio2/directorioX/nombredearchivo.pdf" ######### my @vector = split ('/',$archivo); # quitas las diagonales y los directorios van a @vector. $vector[-1]=~ s/.pdf//; # le quita el .pdf al nombre del archivo que está en la ultima posición. @vector=split ('_',$vector[-1]); # @vector se convierte en el nombre del archivo sin "_" $archivo =~ s/.pdf/.txt/; #al nombre del archivo le quita el .pdf y le pone .txt open (ARCHIVO,">>".$archivo); #creas un archivo (.txt) con el nombre deseado my $contador = 1; foreach(@vector){ print ARCHIVO "\@\@TEXTO".$contador.":".$_."\n"; #$_ tiene el contenido de cada posición de @vector en cada iteración $contador++; } close (ARCHIVO); #Cierra el archivo.