En veces me ha sido necesario manipular un archivo por decir archivo.zip y crear otro archivo con el mismo nombre (archivo.exp) pero con diferente extension, bueno, tons hay que separar la extension anterior para poder
ponerle la nueva.

#
# remove file extension
#
$fname="archivo.txt"
print $fname; #Devolvera archivo.txt
$fname =~ s/\..*//;
print $fname; #Devolvera archivo