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

my @files = File::Find::Rule->file()
                            ->name( qr/\.(rtf&ftp)$/ )
                            ->in( './' );
print Dumper(\@files);