#!perl
use strict;
use warnings;

use File::Find;

my @found_list;
sub wanted {
  push @found_list, $File::Find::name if /^db\.table\.\d+$/
}

find \&wanted, '.';
print "$_\n" for @found_list;
[download]