> head(Domain)
[1] "abs amro" "ams"      "dcor"     "dqa"      "eur"      "lon"

> head(tm$win)
[1] "london"
[2] "lon.com wiadhasdnbc dfasmdnsa "
[3] " ppac winsrvadmin team appseccoe ams whj n c ac "
[4] " pac support l "

>c2 <- paste(Domain, collapse="|")
>c22 <- grep(c2, tm$win, value = TRUE))`