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

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