Perl - Programilla para quitar extensiones

estoy realizando una aplicacion web con perl, y debo mostrar por pantalla un listado de ficheros. Todo esto me sale , lo que pasa es que no quiero que salgan las extensiones de dischos ficheros cuando los listo. Se que esto es "facil", pero no tengo tiempo de ponerme a hacerlo, si alguien tiene hecho algo parecido le rogaria lo pusiera por aqui, gracias.

al final y despues de echarle un rato al tema se resuelve con las siguientes lineas:

# Las siguientes 4 líneas eliminan la extensión
# de los ficheros de las ofertas.

$extension=substr($oferta,-4);
$_=$oferta;
s/$extension/ /g;
$fich=$_;

y al final presentamos por pantalla $fich.

Bueno espero que le sirva a alguien, por lo menos a mi si. Ta luegor

Creo que te puede ayudar y es mas bonito:

$f = ´/mi/url/juan.txt´; # Nombre fichero

$f =~ tr/\\/\//; # cambio \ por / (WINDOWS o UNIX)

$a = $b = $c = $d = $f; # asignacion

$a =~ s/.*\.//g; # txt
$b =~ s/.*\///; # juan.txt
$c =~ s/\..*$//; # /mi/url/juan
$d =~ s/\/$b//e; # /mi/url -> OJO utiliza $b

print "$a\n";
print "$b\n";
print "$c\n";
print "$d\n";


foreach (split(´/´, $f)){
print "$_\n";
}