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