library(stringr)

line <- 'Teste @ abc @REF1'

str_extract_all(line, "(?<=@)\\w+")
str_extract_all(line, "(?<=@)\\w*")