Bienvenido a los foros de Perl en Español, pfariaz.
Hay varias formas...
Si suponemos que siempre va a ver un espacio en blanco antes de la fecha, y solo uno, y después de la fecha siempre hay un punto, se puede escribir así:
Using perl Syntax Highlighting
my $nombre_archivo = 'Desktop 11-10-2012.zip';
my($fecha) = $nombre_archivo =~ / (.+?)\./;
Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
Otra forma: si la fecha es el único sitio del nombre del archivo que solo contiene números y guiones, se puede escribir así:
Using perl Syntax Highlighting
my $nombre_archivo = 'Desktop 11-10-2012.zip';
my($fecha) = $nombre_archivo =~ /([\d-]+)/;
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Hay más...