my @files = grep { (-f $_) and (/^R/) } readdir( DIR );