my @files = grep /^R/, readdir( DIR );

##</code><code>##

for my $filename (@files) {
    open my $inFile, '<', "$directory/$filename" or die "Can't open $directory/$filename: $!";
    ...
    close $inFile;
}