perl s/[^(book|cover)]//gms