如何使用 Perl 列出具有特定名称模式的目录下的文件？

我有一个目录/var/spool在其中，名为的目录

a  b  c  d  e  f  g  h i  j  k  l  m  n  o  p q  r  s  t  u  v  x  y z
  

在每个“字母目录”内，有一个名为“user“在这个里面，许多目录称为auser1 auser2 auser3 auser4 auser5 ...

每个用户目录都包含邮件消息，文件名的格式如下：2.3.4.5.等。

如何通过以下方式列出每个目录中每个用户的电子邮件文件：

    /var/spool/a/user/auser1/11.
    /var/spool/a/user/auser1/9.
    /var/spool/a/user/auser1/8.
    /var/spool/a/user/auser1/10.
    /var/spool/a/user/auser1/2.
    /var/spool/a/user/auser1/4.
    /var/spool/a/user/auser1/12.
    /var/spool/b/user/buser1/12.
    /var/spool/b/user/buser1/134.
    /var/spool/b/user/buser1/144.
  

etc.

我需要这些文件，然后打开每个文件以修改标题和正文。这部分我已经有了，但我需要第一部分。

我正在尝试这个：

dir = "/var/spool";

opendir ( DIR, $dir ) || die "No pude abrir el directorio $dirname\n";
while( ($filename = readdir(DIR))){
    @directorios1 = `ls -l "$dir/$filename"`;
    print("@directorios1\n");
}
closedir(DIR);

但不能按我需要的方式工作。

您可以使用文件::查找.