#!/usr/bin/perl
use strict;
use warnings;
use File::Find;
use Data::Dumper;

my @dirs = @ARGV ? @ARGV : ('.');

my @list;
find( sub{
    push @list, $File::Find::name if -f $_
	&& $_ =~ /(?:\btest\b|\bsample\b|\bChris\b)/ }, @dirs );

print Dumper \@list;

__DATA__

$ perl file.pl
$VAR1 = [
          './test.pl~',
          './sample.c',
          './test.txt~',
          './test.pl',
          './test.txt'
        ];