Parser une variable en Perl

Merci Arthur
Et comme c'est gratuit aprés j'arrete ( et je vais bouquiner un peu Perl même si RegExp m'a toujours foutu un mal de tronche !!!)

#!/usr/bin/perl
my $nom='7845124512200904091025.pdf';
if($nom=~m/(\d{8})\d{4}[\.a-zA-Z]*$/){
print "1ドル\n";
}

et si je veux en sortie ?:

$nom 1ドル (exemple : 7845124512200904091025.pdf 2009 04)

Puisse ta gratuité répondre à ma question et aprés je disparais ...

Merci d'avance