#!/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;
}