Recherche:

La plupart du temps le "?" signifie "0 ou 1 autre caractere quelconque"
Si c'est dans une regex perl ca signifie que l'expression precedente doit etre presente "0 ou 1" fois.

Ca s'arrete tout seul quand ca a parcouru l'ensemble de ton arborescence

T'as pensé à une fonction recursive?



sub ParseDirectory {
my $directory = shift if (-d $_[0]) or return 0;
$directory = $directory."/" if ( $directory !~ /\/$/ ) ;
opendir DIR,...