a <- "Ensembl Gene ID HGNC symbol
ENSG00000198576	ARC"
b <- read.table(textConnection(a), header=TRUE, sep="\t")