my @dirs = File::Find::Rule
   ->directory()
   ->in('.');

for my $dir (@dirs) {
   my @rtfs = File::Find::Rule
      ->maxdepth(1)
      ->file()
      ->in($dir);

   for my $rtf (@rtfs) {
      ( my $ftp = $rtf ) =~ s/\.rtf\z/.ftp/;
      if (-e $ftp) {
         print("$rtf\n");
      }
   }
}

##</code><code>##

my @files = File::Find::Rule
   ->file()
   ->name('*.rtf')
   ->exec(sub{
      my $rtf = $_;
      ( my $ftp = $rtf ) =~ s/\.rtf\z/.ftp/;
      -e $ftp;
   })
   ->in('.');