in reply to regexp everything except

s/[^bc]+ # Any characters that aren't a 'b' or an 'c'. |b(?!ook) # Or a 'b' which doesn't start a 'book'. |c(?!over) # Or a 'c' which doesn't start a 'cover'. /gsx;