I have some data where I have names "sandwiched" between two spaces and the phrase "is a (number from 1-99) y.o". For example:

```
a <- "SomeOtherText  John Smith is a 60 y.o. MoreText"
b <- "YetMoreText  Will Smth Jr. is a 30 y.o. MoreTextToo"
c <- "JustJunkText  Billy Smtih III is 5 y/o MoreTextThree"

```

I'd like to extract the names "John Smith", "Will Smth Jr." and "Billy Smtih III" (the misspellings are there on purpose). I tried using `str_extract` or `gsub`, based on answers to similar questions I found on SO, but with no luck.