@r_words = grep /^R/,@words;