arXiv = ServiceConnect["ArXiv"]
articles = arXiv["Search", {"Query" -> "Quantum Eraser", MaxItems -> 4}]
article001 = articles[[1, {"ID", "URL", "Published", "Title"}]]