#!/usr/bin/perl -w

opendir(DIR, ".");
@files = grep(/^R/,readdir(DIR));
closedir(DIR);

foreach $file (@files) {
   print "$file\n";
}