不需要在Perl中拆分文件名。 BUG？

Question

I want to know the files within a directory tree. Something like this

TOP -> SECOND -> FOLDERS 1-3 -> NAME -> Files

I did not generate these files but they are formatted as such

1234 ACS. (Description).txt

Yes that is white space in there

My issue is when I'm reading .txt files from the "NAME" folder

opendir(DIR, $top.$second) or die "CANNOT OPEN SECOND DIRECTORY\n";
@nameFolders = grep { !/^\.|\.\.$/ }  readdir(DIR);
closedir(DIR);

foreach(@nameFolders){
        $folder = $_;
        if($_ =~ /\.txt$/){ next; } #sometimes .txt files are here but I took care of them earlier in the code and that works just fine
        #print $_."\n"; #Output is 100% perfect here
        opendir FIL, $top.$second."/".$folder or die "CANNOT OPEN NAME DIRECTORY\n";
        @files = grep  { /\.txt$/ } readdir(FIL);
        closedir(FIL);

        foreach(@files){
            $fileName = $_;
            print $fileName."\n"; #HERE IS MY PROBLEM OUTPUT IS BELOW
            @fileName = split / /, $fileName;
            $numID = $fileName[0];
            $goodFiles{$fileName}=$numID;
        }

}

OUTPUT: 
     1234 ACS. (STUFF).txt
     ACS.
     1235 ACS. (STUFF).txt
     ACS.
     ...

What is going on here? I'm not spiting the file name until after I print, AND it's in the @files array.

I'm at a loss.

Thanks for any input.

Answer 1

Does this help?

use strict;
use warnings;

use File::Find;

my @directories_to_search = ();
push(@directories_to_search, 'TOP/SECOND/');
find(\&wanted, @directories_to_search);

sub wanted 
{
    my $file = $_;
    if (defined($file) && $file =~ m/.txt$/) 
    {
      print "$file\n";
    }
}

Output

1234 ACS. (STUFF).txt
1235 ACS. (STUFF).txt