File::Find::Rule provides an easier interface for this. Here's an example:

use File::Find::Rule;
use strict;
use warnings;


my $rule = File::Find::Rule->file->grep(qr/perl/)->start('.');
while (my $file = $rule->match) {
    print $file, "\n";
}
[download]