To make it easier, use File::Find::Wanted. Here's a snippet that looks for all the files in /tmp:

#!/usr/bin/perl -l

use strict;
use warnings;
use File::Find::Wanted;

my $d = '/tmp';
my @files = find_wanted(sub { -f && /\./ }, $d);
foreach my $file(@files) {
    print $file;
}
[download]